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-REM_ 
IDENTIFICATION 
PRODUCT ID: AC -T720A -MC 
PRODUCT TITLE: CZTSCAO TSUOS DIAG PART 5 
DEPARTMENT: COMPUTER SPECIAL SYSTEMS/PPG 
DATE: JUNE 08, 1985 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DOIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY OIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1963 6Y DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
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1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


THIS IS A PDOP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF A _ TSUOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11//23 SYSTEM 
CUNIBUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTER ACE TO THE OPERATOR ANDO TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XxDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


PDP-11 PROCESSOR AND MEMORY 

CAUTION:DIAGNOSTIC REQUIRES 32k WORDS OF MEMORY 

(28K USEABLE I.E. 4K FOR I/O PAGE) 

TSUOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-+ ) 


1.3 RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP+ USERS MANUAL; DOCUMENT NUMBER AC -F 348E -MC 
DATE: 14 JULY 1980. 


2. TSUOS TRANSPORT SUBSYSTEM USER‘S GUIDE; DOCUMENT NUMBER EK -TSU0S-UG-001 
DATE: AUGUST 1982 


3. TSUOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK -TSUOS-TM-001 


DATE: AUGUST 1982 


4. TSUOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK -TSUOS-IN-001 


DATE: AUGUST 1982 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


FUNCTIONAL POP-11 CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP- ) 


SEQ 003 
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1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


2.1.1 OPERATOR COMMANDS 


THE TSUOS DIAGNOSTIC IS A POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHQUS XXDP+ USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


-R VTSC?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CvTSC-A-O 

##e¢TSUOS LOGIC DIAGNOSTICeses 

UNIT IS TSUOS 
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>DR 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 


SWITCH EFFECT 


-—-<—-s86- leit ee 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 T 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

7PASS : 00000 EXECUTE DODOD PASSES (DDDDD = 1 TO 64000) 

/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 


7EOP :DDD00 REPORT END OF PASS MESSAGE AFTER EVERY 
DDDOD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS:1-S/PASS: 1000/E0P : 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


COMMAND . 
TESTS Pass FLAGS EOP UNITS 

START x x x x x 
RESTART x x x x x 
CONT INVE x x x 
PROCEED x 
DROP x 

DD x 
PRINT 
DISPLAY x 
FLAGS 
ZFLAGS 
EXIT ' 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 


USER DOCUMENTATION 


G1 


MACRO M1113 01-FEB-84 17:54 


CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER*s INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IxXE*« INHIBIT EXTENDED ERROR REPORTS ( THOSE 
CALLED BY PRINTX MACRO’'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XxXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: B0E 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?” 

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER’S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?” QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 


SEQ 006 


Hi 
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RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 
TSBA/TSDB = 172520, VECTOR = 224 


ON A “Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN “(0)” INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN ‘(L)” INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"yY" FOR YES, “N" FOR NO. 


@ UNITS (0D) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “® UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSUOS CONTROLLERS PER PDP-11 AND UP TO 2 DRIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPIED BY "CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 
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WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_ TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A OE€VICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
ITS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


® UNITS (0) 2? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 2? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE ¢ (0) ? 2<CR> 
Q-FACTOR (0) 0 2? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? «CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE #@ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS ( 


0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 


SEQ 008 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
RI aeend THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (D0) > 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


az UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 2? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND S WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD WAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (0) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? O-7<CR> 
Q-FACTOR (0) 0 ? 0, 1,8. «sh. 8tCR 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 


SEQ 009 


KK1 


USER DOCUMENTATION MACRO M1113 O1-FEB-84 17:54 SEQ 010 


A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 

1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE "R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE “START” 

ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
ANSWER ALL THE HARDWARE QUESTIONS 
ANSWER THE “CHANGE SW” QUESTION WITH "N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


«WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER“, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


vn oOo wees 
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BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED 

TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
eo REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CvTSC HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS CIN WORD 9%) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD 08: - DESIGNATOR <BIT @> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <8> IONL<S> IFBY<1> 
IRESV1i<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O> 
TAPE BUS SIGINALS IN WORD @9: 
DATMIS<7> ILW<6> OUTRDY<S> INRDY<4> 

MESSAGE BUFFER ADDRESS = 047352 

MESSAGE BUFFER CONTENTS: 
WORD #0 EXPD: 100020 RECV: 100020 xXOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 xXxOR: 000000 

: 000000 000000 : 


WORD @3 EXPD: 000010 RECV: 000010 XOR: 000000 
: 000000 : 
: 000000 : 000000 : 
WORD @8 EXPD: 070217 RECV: 070217 XOR: 
: 000034 : 


\ ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE ORIVE,IN THIS 
ao oe ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
Y ve. 


CVTSC HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE = UNRECOVERABLE ERROR 

PACKET ADDRESS = 026420 

PACKET WORD # = 140010 

PACKET WORD #@ = 000010 

PACKET WORD # = 000000 

PACKET WORD # = 000024 
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ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CvVTSC HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE ) 
EXPD: 000312 RECV: 000112 XOR: 000200 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP-11) 


OR>STA/FLA:PNT : HOE 

UNITS (0) ? 1 

UNIT O 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
kee ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON 


TST: OO1 INITIALIZE 04 TEST 

TST: O02 OFF-LINE REJECT AND REWIND TEST 
TST: 003 BASIC WRITE DATA TEST 

TST: 004 BASIC READ DATA TEST 

TST: OOS SPACE RECORDS TEST 

TST: 006 REREADS TEST 

TST: OO7 WRITE DATA RETRY TEST 

TST: 008 WRITE TAPE MARK TEST 


"© ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT 
HAS BEEN SPECIFIED WITH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES 
THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 


TO BE USED AS A_ GUIDE. THE TIMING WAS DONE ON A POP-11 
PROCESSOR WITH A LA34 CONSOLE. 


SEQ O12 
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THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A “Y" CYES). 


TEST N/I NUMBER DEF 
NUMBER SECS. ITER SECS. 
1 3 10 7 
2 3 8 5 
3 38 250 212 
4 60 300 240 
5 60 300 240 
6 120 360 240 
7 120 600 480 
8 22 90 68 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 8 IN ONE COMMAND: 


Q.V. 7 MINUTES 
DEFAULT 31 MINUTES 


5.0 DEVICE INFORMATION TABLES 


WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
pa To ya meas REQUESTS THE FOLLOWING P-TABLES PARAMETER 
H : 


CHANGE HW (L) ? 


# UNITS (0) ? <ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “# UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
oye CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 
LLOWS: 


SEQ 013 


VSER DOCUMENTATION 


TEST 


TEST 


TEST 


TEST 


Be 
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CHANGE SW (i) ? 


INHIBIT ITERATIONS (L) N ? 


6.0 TEST SUMMARIES 


i: 


2: 


3; 


4: 


INITIALIZE #4 TEST 


THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
EXTENDED FEATURES SWITCH, ETC.) 


OFF-LINE AND REJECT REWIND 


THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC 
OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 

CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 

had aw 3 REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 


BASIC WRITE DATA 


THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 
PTE rrrrrrrriirirrirriririiiiirriiiiiirii itty) 
CAUTION 

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADORESS LINES( 16-21) 
ARE ONLY CHECKED WHEN RUNNING ON A POP-11 SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 


SSOSEHHSHHEESSSHSSHESHASHEHESSEESESEEEESEHOSHASEESHOHESESESESHHEHEHEEKEOS 


BASIC READ DATA (FORWARD AND REVERSE ) 


THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST 
OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 
READING AND VERIFYING WRITTEN DATA, ALSO TESTED ARE PROPER 
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG, RECORD LENGTH SHORT, READ REVERSE AT BO", ILLEGAL DATA 


SEQ 014. 


USER DOCUMENTATION 


TEST Se 


TEST 6: 


TEST 7: 


TEST 8: 


Le 
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BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 
READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. 
SOSHSAOHHSOSHHOEEESEESEHAEHHHASEEEAESEEHEHRERESCEHEAEEEEHEEEEEEEREREEOEED 
CAUTION 
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES( 16-21) 
ARE ONLY CHECKED WHEN RUNNING ON A PDP-11 SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 


SEOSOHHSESEEEOHASEESOEHEASEASEEEEEACEEHEHOHOEAEOEAEEASCHEEEEEREREOEEE 


SPACE RECORDS 


THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 
RECORDS REVERSE POSITION COMMANDOS OPERATE PROPERLY WHEN SPACING 
OVER NORMAL DATA RECOROS. OPERATION WHEN SPACING OVER TAPE MARKS 
IS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 
SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 

OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 

OF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 
RECORD INDICATE THAT RECORD’S RELATIVE POSITION ON TAPE. AFTER 
EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 
THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 
THE EXPECTED RESULT. 


REREADS 


THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (OPP) 
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 
AND DATA BUFFERS IN NONEXISTENT MEMORY. 
SHORESEOEEORESOEEESEEEEEEEEEOEEEESEEEEEODESEEEEEEEEEEEREREEESEOEES 
CAUTION 

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21) 
ARE ONLY CHECKED WHEN RUNNING ON A PDP-11 SYSTEM WITH MORE THAN 
128K WORDS OF MEMORY! 


SASSHSHHSE SESE SSHSEESEEEEESEASEHHHEEHEHSHEHEEEEEOHEEHKEEEEEEEHEEHEEOEE 


WRITE DATA RETRY 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


WRITE/READ TAPE MARK 


THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
TAPE MARK. IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST 
SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED 
THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT 


SEQ 015 


D2 


VSER DOCUMENTATION MACRO M1113 O1-FEB-84 17:54 SEQ 016. 


FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 


7,0 MAINTENANCE HISTORY 


REVISION A - JUNE 1983 


TSV2 - PROGRAM HEADER 


002000 


002000 ' 


001217 
112510' 
112642' 
002146' 
002156’ 
112736’ 
000000 
000000 
000000 
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see 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 


ce 


TSV2 - PROGRAM 
PROGRAM HEADER 
ABS 


svc 


HEADER 


s INITIALIZE SUPERVISOR MACROS 


; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


aiaak BGNSW, BGNSF T ,BGNAU,BGNDU, BGNRPT 


ADER 
L $NAME 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

BYTE 

BYTE 
LSREV: 

ASCII 
LS$DEPO:: 

-ASCII 
LSUNIT ‘ 
LSTIML:: 

. WORD 
LSHPCP:;: 
LSSPCP:: 
LSHPTP:: 
L$SPTP:: 

J D 
L$LADP: : 

. WORD 
LSSTA:: 

D0 
LSCO:: 

. WORD 
LSDTYP:: 

.WORD 
LSAPT:: 

» WORD 


CZTSC,A,0,655. 


.0 


sDIAGNOSTIC NAME 


4C/ 
42/ 
4T/ 
4S/ 
4C/ 


sREVIS 
30 


ION LEVEL 


sNUMBER OF UNITS 
sLONGEST TEST TIME 


655. 

L SHARD 
L$SOFT 
L$Hw 
L$Sw 
L$LAST 
0 


sPOINTER TO H.W. QUES. 
sPOINTER TO S.W. QUES. 
TO DEF. H.W. PTABLE 


;PTR. 
3;PTR. 
;OIAG. 


sRESERVED FOR APT STATS 


0 
r?] 

,APT E 
9 


TO S.W. PTABLE 
END ADORESS 


sDIAGNOSTIC TYPE 


XPANSION 


SEQ 017 


TSV2_ - PROGRAM HEADER 
PROGRAM HEADER 


002124' 
000000 


003 
003 


003372' 
022524' 
000000 
000000 
022212’ 
022310' 
000000 
003400' 
104035 
000000 
021416' 
022476' 
022416' 
021406' 
000000 
000000 
000000 
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LSDTP:: 

L$PRIO:: 
LSENVI:: 
LSEXP1::. 
LSMREV::- 


LSEF:; 


L$SPC:: 
LSDEVP:: 
LSREPP:: 
LSEXxP4: : 
LSEXPS:: 
LSAUT:: 
L$DUT:: 
L$LUN:: 
LSDESP:: 
Lsvoap: 278" 
EMT 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:; 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME: ; 


. SBTTL 


see 
s THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


F2 


sPTR. TO DISPATCH TABLE 
LSDISPATCH 
sDIAGNOSTIC RUN PRIORITY 


sFLAGS DESCRIBE HOW IT WAS SETUP 


0 
‘ sEXPANSION WORD 
3SVC REV AND EDIT # 
CSREVISION 
CSEDIT 
6 sDIAG. EVENT FLAGS 
0 
t?) 
: POINTER TO DEVICE TYPE LIST 
L$OvTYP 
sPTR. TO REPORT CODE 
L$RPT 
0 
0 
: sPTR. TO ADD UNIT CODE 
L$AU 
sPTR. TO DROP UNIT CODE 
L$bduU 
6 ;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
r sPOINTER TO ERRTBL 
sPTR. TO INIT CODE 
LSINIT 
sPTR. TO CLEAN-UP CODE 
LS$CLEAN 
sPTR. TO AUTO CODE 
LSAUTO 
sPTR,. TO PROTECT TABLE 
L$PROT 
> ; TEST NUMBER 
‘ ;DELAY COUNT 
‘ ;PTR. TO HIGH MEM 


DISPATCH TABLE 


SEQ 018 


TSV2 - PROGRAM HEADER 


DISPATCH TABLE 


39 
40 002122 


000003 


172520 
000224 
000200 
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Ge 


—— - 
LSDISPATCH: : 

-WORD T1 
-WORD T2 
-WORD T3 
-WORD 14 
-WORD TS 
-WORD T6 
«WORD T7 
-WORD T8 
. SBTTL 


see 


DEFAULT HARDWARE P-TABLE 


; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


sDEFAULT HARD -P-TABLE 


gee 
BGNHW 
. WORD 


. SBTTL 


OFPTBL 
L10000 -L $HW/2 


172520 
224 
PRIO4 


SOFTWARE P-TABLE 


THE STRUCTURE OF THIS TABLE 


1ST (OF 2) REGISTERS. 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 


ze 
; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
3; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


TRANSTST:: 
NOITS:: 


LERRMAX: : 

GERRMAX: : 
ENOSW 

L10001: . 


ENOMOD 


SFPTBL 
L10001 -L$Sw/2 


-WORD O 
-WORD O 
-WORD 15. 
«WORD 200. 


ENABLE TEST OF TRANSPORT(S) IF =1 
INHIBIT ITERATION OPTION. 

--» O = ITERATE. 

-..NZ = INHIBIT ITERATE. 

LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 


SEQ 019 


He 
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SOFTWARE P-TABLE ONO REESE CLT R-Oe Eres SEQ 020 
? TITLE TSV3 - GLOBAL AREAS 
: , “SBTTL GLOBAL EQUATES SECTION 
1 
19 
20 002166 BGNMOD TSVv3 
002166 TSV3:: 
21 
22 
23 .SBTTL GLOBAL EQUATES SECTION 
25 zoe 
36 : THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EGUATES THAT 
57 ; ARE USED IN MORE THAN ONE TEST 
4 - 
33 002166 EQUALS ; GET STANDARD EQUATES. 
3 
; BIT DIFINITIONS 
Q 
100000 BIT1S== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
i 
001000 BIT9*= BITOS 
000400 BIT8== BITOS 
000200 BIT7*= 3IT07 
000100 BIT6== BITO6 
000040 BITS*= BITOS 
000020 QIT4== BITO4 
000010 BIT3== BITO3 
000004 BIT2== BITO2 
000002 BITi== BITO1 
000001 BITO== BITOO 
i 
; EVENT FLAG DEFINITIONS 
;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
3 
000040 EF .START== 32. ; START COMMAND WAS ISSUED 
000037 EF RESTART== 31. ; RESTART COMMAND WAS ISSUED 
000036 EF CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
000035 EF |NEWe= a ; A NEW PASS HAS BEEN STARTED 
000034 EF /PWR=« 28. ; A POWER-FAIL/POWER-UP OCCURRED 


Te 
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GLOBAL EQUATES SECTION 


+ PRIORITY LEVEL DEFINITIONS 


3 
000340 PRIO7== 340 
000300 PRIO6=*= 300° 
000240 PRIOS== 240 
000200 PRIO4== 200 
000140 PRIO3== 140 
000100 PRIO2*= 100 
000040 PRIO1== 40 
000000 PRIOO== 0 

3 

;OPERATOR FLAG BITS 

U 
000004 EVL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 I0U== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 Ix€== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 


34 
35 002166 KT11 ee ;DEF INE MEMORY MANAGEMENT REGISTERS 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 


3#KT11 VECTOR ADDRESS 


000250 MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
177572 SRO= 177572 
177574 SR1= 177574 
177576 SR2= 177576 
172516 SR3= 172516 
IF NB 


s#USER "I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 
UIPDR1= 177602 
UIPDR2= 177604 
UIPDR3= 177606 
UIPOR4= 177610 
UIPORS= 177612 
UIPOR6= 177614 
UIPOR7= 177616 


s#USER “D” PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 
UOPOR1= 177622 
UDPOR2= 177624 
UDPOR3= 177626 
UDPDR4= 177630 
UODPORS= 177632 
UDPDR6= 177634 
UDPDR7= 177636 
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MEMORY MANAGEMENT DEFINITIONS 


.ENOC 


Je 


;#USER “I” Ram ADDRESS REGISTERS 


UIPARO= 
UIPAR1= 
UIPAR2= 


;#USER "D” PAGE ADDRESS REGISTERS 


ARO= 


SIPOR1= 
SIPOR2= 
SIPOR3= 
SIPOR4= 
SIPORS= 
SIPOR6= 
SIPOR7= 
IF NB 


177660 

177662 
177664 
177666 
177670 
177672 
177674 
177676 


NB 
s*SUPERVISOR “I” 
SIPORO= 


172200 


PAGE DESCRIPTOR REGISTERS 


isSUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 


172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 


;@SUPERVISOR "I" 


SIPARO= 


172240 


;#SUPERVISOR "D” 


SDPARO= 
SDPAR1= 
SDPAR2= 


172260 
172262 
172264 


PAGE ADDRESS REGISTERS 


PAGE ADDRESS REGISTERS 


SEQ 022 


TSV3_- GLOBAL A 


REAS 


172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


000004 


Ke 
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SDPAR3= 172266 
SDPAR4= 172270 
SOPARS= 172272 
SDPAR6= 1722974 
SDPAR7= 172276 


;4KERNEL “I” PAGE DESCRIPTOR REGISTERS 
KIPORO= 172300 

KIPOR1= 172302 

KIPDR2= 172304 

KIPOR3= 172306 

KIPOR4= 172310 

KIPORS= 172312 

KIPOR6= 172314 

KIPOR7= 172316 - 


NB 
;@KERNEL “OD” PAGE 
DESCRIPTOR REGISTERS 
KOPDRO= 172320 
KOPOR1= 172322 
KOPDR2= 172324 
KDPOR3= 172326 
KDPDR4= 172330 
KOPORS= 172332 
KDPOR6= 172334 
KDPOR7= 172336 
-ENOC 
s;*KERNEL “I” PAGE ADDRESS REGISTERS 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 


NB 
;@KERNEL “D" PAGE ADDRESS REGISTERS 
KDPARO= 172360 

KDPAR1= 172362 

KDPAR2= 172364 

KOPAR3= 172366 

KDPAR4= 172370 

KOPARS= 172372 

KDPAR6= 172374 

KDPAR7= 172376 

-ENDC 


-SBTTL TSUOS REGISTER AND PACKET DEFINITIONS 
; 
; SOME GENERAL EQUATES. 


; 
ERRVEC== 4 


SEQ 023 


; POINTER TO ERROR VECTOR FOR BUS TIME OUT. 


TSV3_-_ GLOBAL AREAS 
TSUOS “REGISTER AND PACKET DEFINITIONS 


000060 
177560 
177562 
177520 


MACRO 


M1113 O1-FEB-84 1 


TTIVEC== 
TTICSR== 
TTIBFR== 
BOVPCR== 


7:54 


60 
177560 


177562 
177520 


Le 


INTERRUPT VECTOR FOR ‘eon, INPUT 
BUS ADDRESS OF CONSOLE INPUT 

CONSOLE INPUT DATA BUFFER 

BOV11 PAGE CONTROL REGISTER 


3¢ 
;BIT DEFINITIONS FOR TSSR REGISTER 


BIT15 
BIT14 
BIT13 
BIT12 
BIT11 


BIT10 
BIT9!BITS 
BIT7 


BIT6 
FATERR= BIT4!BITS 
TERCLS= BIT3!BIT2!BIT1 


3¢ 


sSPECIAL CONDITION 

;BUS INTERFACE ERROR 
sSANITY CHECK ERROR 
sMODIFICATION REFUSED 
sNONEXISTANT MEMORY ERROR 
sNEED BUFFER ADDRESS 
sEXTENDED ADDRESS BITS 
3SUB SYSTEM READY 

;OFF LINE BIT 

sFATAL TERMINATION ERROR CODES 
s TERMINATION CODES 


‘ 
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


3(XSTO) 
_e 


XSOTMK = 
XSORLS= 
XSOLET= 
XSORLL = 
XSOWLE = 
XSONEF = 
XSOILC= 
XSOILA= 
XSOMOT= 
XSOONL = 
xSOIE= 

xSOVCK= 
XSOPED= 
XSOWLK = 
XSOBOT= 
XSOEOT= 


;TAPE MARK DETECTED 
:RECORC LENGTH SHORT 
sLOGICAL END OF TAPE 
sRECORD LENGTH LONG 
sWRITE LOCK ERROR 
sNON EXECUTABLE FUNCTION 
; ILLEGAL COMMAND 
sILLEGAL ADDRESS 

3; TAPE IN MOTION 

3; TRANSPORT ON LINE 

s INTERRUPT ENABLE 
sVOLUME CHECK BIT 
sPHASE ENCODED DRIVE 
;WRITE LOCKED 
;BEGINNING OF TAPE 
sEND OF TAPE 


3+ 
sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 


3(XST1) 
' id 
X1.0LT 
X1. SPARE 
xi.COR 
X1.MBZ 
X1.RBP 
X1.UNC 


» BIT1S 
= BIT14 
= BIT13 


;DATA LATE 
sNOT USED 
sCORRECTABLE DATA ERROR 


SEQ 024 


° BIT12+BIT11+B1T10-BIT9+BIT7+B1T6+BITS-BIT4+BIT3-BIT2+BITO sALWAYS O 


= BITS 
* BIT1 


;READ BUS PARITY ERROR 
sUNCORRECTABLE DATA OR HARD ERROR 


Me 
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TaUaS RES TEER AND PACKET BEPINTTTONS 

105 

2 
10? }BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
108 :(xST2) 
109 3° : 

00000 X2.0PM = BIT1S ;OPERATION IN PROGRESS (TAPE MOVING) 
Hit 69000 3 Sine: Sti Sorrzsent tte Soe sen on reins cauayseo 
Xe. PA E= 1 e + : z 

iis 003000 NS IF e GETLO. ae WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
114 000200 X2_EXTF = BIT? HIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
115 000100 K2.BUFE = B1T6 | ;IF WRITE CHAR CMD THEN = BUFFERING ENABLED 
116 000077 -¥2.REV = 00007 IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
117 000007 NE UET © GITS-BITICBITO VIF GET STATUS THE © CURRENTLY SELECTED cali nae 
118 

a 
130 IBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
121 :(XST3) 
iss 177400 X3.MDE® = 177400 ;MICRO-DIAGNOSTIC ERROR CODE 
124 000200 x3. SPARE = BIT? ;NOT USED BY TSUOS 
125 000100 X3OPI "= BIT6 ;OPERATION INCOMPLETE 
126 000040 X3.REV = BITS ; REVERSE 
127 000020 X3_TRF = BIT4 ; TRANSPORT RESPONSE FAILURE 
128 000010 X3.0CK ‘= BIT3 ;DENSITY CHECK 
129 000006 X3.MBZ =BIT2°BIT1 ;NOT USED ALWAYS © 
130 000001 X3.RIB = BITO ;REVERSE INTO BOT 
131 

& 
iss BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
134 :(XST4) 
135 re 

X4.HSP = BITIS ;HIGH SPEED 
is? ba0000 + X@:RCE = BITI4 ;RETRY COUNT EXCEEDED 
138 020000 x4_TSM = BIT13 ; TRANSPORT SPECIAL MODE 
139 017400 X4.MBZ = BIT12B1T11+BIT10-B119-B1T8 ;NOT USED ALWAYS 0 
140 000377 X4.WRC = 000377 ;WRITE RETRY COUNT FIELD 
141 
142 
aa a 
145 ;TSSR TERMINATION CODES (BIT 0-2) 
146 Fy 
147 g°- 
148 . 
000006 TSREJ= 382 ;COMMAND REJECTED 

150 000006 UNREC= 6 ;UNRECOVERABLE ERROR 
151 
iss * 
154 SDEVICE REGISTER OFFSETS 
155 ; 
is? é 
158 000000 TSBA== 0 
159 000000 TSDB=-= 0 ;TSDB/TSBA REGISTER 
160 000001 TSBAH== 1 
161 000001 TSOBH== 1 


;TSDB/TSBA REGISTER HIGH BYTE 
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000002 
000003 


000003 


MACRO_M 


tt 


IONS 


Ne 
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TSSR== 2 ;TSSR REGISTER 
TSSRH== 3 sTSSR REGISTER HIGH BYTE 


3+ 
; TSDB ADDRESS BIT DEFINITIONS 


= 

A1716 = _BIT1+BITO ;ADDRESS BITS 17:16 ARE IN 1:0 

; COMMAND DEFINITIONS y 

i- e: 

P.GETSTAT = 17 GET STATUS 

P.INIT = 13 INITIALIZE 

P. CONTROL = 12  ;CONTROL COMMANDS 

P FORMAT = 11  ;FORMAT 

P POSITION = 10 POSITION 

P.WRTSUB = 6 ;SUBSYSTEM WRITE 

P WRITE = 5 ;WRITE 

P.WRTCHAR = 4 ;WRITE CHARACTERISTICS 

P.READ =1 ;READ 

; COMMAND PACKET HEADER WORD BIT DEFINITIONS 
P.ACK = BITIS ;BUFFER AVAIL FOR CONTROLLER 
P.CVC = BIT14 ;CLEAR VOLUME CHECK 
P.OPP == BIT13 ;REVERSE SEQUENCE OF DATA BITS 
P.SWB = BITI2 ;SWAP BYTES IN MEMORY 
P/MODE = BITI1!8IT1O!BIT9!BITS ;EXTENDED COMMAND MODE FIELD 
P.IE = BIT? : INTERRUPT ENABLE 
P.FMT= BIT6!BITS ;PACKET HEADER TYPE (ALWAYS=0) 
P.CMD = 37 ;MAJOR COMMAND FIELD 


3¢ 
; CONTROL COMMAND MODE CODES 


PC .RELEASE = 04256. sRELEASE BUFFER 

PC .REWIND = 1256. ;REWIND 

PC .NOOP = 24256. 3NO-OP 

PC.IEREW = 42256. sREWIND IMMEDIATE INTERRUPT 
PC .ERASE = 50256. ‘  sSECURITY ERASE 


7+ 
; CONTROLLER RAM DEFINITIONS 


R° 

RMCHBEG = 167 sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
RMCHEND = 200 sCHARACTERISTICS IO DATA END RAM ADDRESS 
RMPKTBEG= 201 sCOMMAND PACKET BEGIN RAM ADDRESS 
RMPKTEND= 210 sCOMMAND PACKET END RAM ADDRESS 

RMMSGBEG= 215 sMESSAGE BUFFER BEGIN RAM ADDRESS 
RMMSGEND= 234 sMESSAGE BUFFER END RAM ADDRESS 


3¢ 


; 

sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
é 

go 


xSTO== 6 sEXTENDED STATUS REGISTER O (WORD 4) 


B3 
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TSUOS REGISTER AND PACKET DEFINE TIONS 
219 000010 xSTle= 8, sEXTENDED STATUS REGISTER 1 (WORD 5) 
220 000012 xST2== 10, sEXTENDED STATUS REGISTER 2 (WORD 6) 
221 000014 xST3*= 12, sEXTENDED STATUS REGISTER 3 (WORD 7) 
222 000016 xST4*= 14, sEXTENDED STATUS REGISTER 4 (WORD 8) 
224 
225 se 
226 3 
a. sOFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
y 
230 | 
231 000002 PKLOW «= 2 sLOW ORDER CHARACTERISTIC DATA POINTER 
232 000004 PKHI * 4 sHIGH ORDER CHARACTERISTIC DATA POINTER 
.o 000006 PKBCNT = 6 sNUMBER OF BYTES IN DATA PACKET 
233 000010 EXBCNT #10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 
237 se 
ee sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
g* 
240 000000 BSELO  =0 :BYTE O 
241 000001 BSELL «1 s;BYTE 1 
242 000002 SEL2 * 2 sWORD 2 
243 000004 SELDATA = 4 sWORD 3 
244 
245 se 
— sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
i- 
248 000000 Pw.NOP * 0 sNO -OP 
249 000001 Pw. RDORAM «1 sREAD RAM 
250 000002 Pw. WwTRAM * 2 s;WRITE RAM 
251 000003 Pw. RFIFO » 3 sREAD FIFO 
252 000004 Pw. wFIFO = 4 ;WRITE FIFO 
253 000005 Pw.ROSTAT * 5 sREAD STATUS 
254 000006 Pw. WCTL * 6 s;WRITE TAPE CONTROL 
255 000007 Pw. WwFMT * 7 sWRITE TAPE FORMAT 
256 000010 Pw. WwMISC * 10 sWRITE MISCELLANEOUS 
257 000011 Pw * 11 ;WRITE NPR CONTROL 
258 000020 Pw.022 * 20 100 MICROTEST 22 
259 000021 Pw.O011 * 21 300 MICROTEST 11 
260 000022 Pw.013 * 22 300 MICROTEST 13 
261 000023 Pw.NO1311 « 23 sOISABLE MICROTEST 11 AND 13 
ose 000024 Pw. RDEXT * 24 sREAD EXT, TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
264 te 
= s;8SEL1 CODES FOR WRITE TAPE CONTROL 
= 
267 000200 wC. IFAD » BIT? sIFAD - FORMATTER ADORESS 
268 000100 we. IOTAD * BITE sITADO TRANSPORT ADORESS BIT 0 
269 000040 we. ITLTAD * BITS sITADL - TRANSPORT ADDRESS BIT 1 
270 000020 wC . ISRESV * BIT4 sIRESVS - RESERVED 05 
271 000010 wc. IREW * BITS ,IREW - REWINO 
272 000004 wc. IRwuU * BIT2 :IRWU = - ~-REWIND AND UNLUAD 
273 000002 wC.IFEN * BITL ;IFEN  - FORMATTER ENARI E 
274 000001 wC.IGO * BITO 3GO 
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rams CODES FOR WRITE FORMAT 


SRSSSSSR: 6: 


MS .EXT © 
MS.RSFIFO ° 
MS .RSTAPE . 
MS.ATTN . 

-RSO . 


C3 


BIT? 
BIT4 


BITS 
BIT2!BIT1 
BITO 


3° 
: MS.ATTN SUBCODES 


ad 
MSA.NOP = 
MSA.VOL = 
MSA.NRAM= 
MSA.FRAM= 


3° 
s WRITE SUBSYSTEM 


NP .IR . 
NP .OUT ® 
NP .LOOP ° 
NP , WRP + 


w 
i 
~ 
i 
®D 
m 
w 
< 
eseeseeeeseeeeseeeeneeeneeeees 


O22 
le2 
2e2 
3e2 


BIT2 
BIT1+BITO 
BIT15 
BIT14 
BIT13 
BITi2 
BIT11 
BIT1O 
BIT9 
BITS 

BIT7 

BIT6 
BITS 


IHISP - HIGH SPEED 
IwRT - WRITE 

IREV - REVERSE 

IWeM - WRITE FILE MARK 
IEDIT - EDIT 

IERASE - ERASE 

IRESV3S - RESERVED 03 
IRESV4 - RESERVED 04 


MISCELLANEOUS SUBCOMMAND 


SEQ 028 


sINVERT SENSE OF EXTENDED FEATURES SWITCH 
sRESET FIFO AND INPUT PARITY ERRORR 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 
sATTENTION TRIGGER FIELD 
RESET TIMER A,B THEN DELAY TIMES IN SEL2 


sNO-OP (NOTHING TRIGGERED) 
sSIMULATE ON-LINE /OFF -LINE 


TRANSIS" ION 


sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


WRITE NPR BSEL1 BIT DEFINITIONS 
s INTERRUPT REQUEST (0-1 TRANSITION) 
sTAPE DATA DIRECTION OUT (O= IN) 
sENABLE TRANSPORT LOOPBACK 

sWRITE CORRECT PARITY (SET*O TO WRITE WRONG) 


3° 
s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


(UNDEF INED ) 


WORD 08 BITE O 


IN ROY 


4 


sWORD 09 BYTE 2 DATA IN MISS 
ILW 
OUT RDY 


TIMER A FLAG 
TIMER B FLAG 


WORD 08 BYTE 1 PARIN H 


IRESV2 
IRESV1 
IEOT L 
IIDENT 
ICER 
IFMK 
IHER 
ISPEEO 
IROY L 
IONL L 


La] 


D3 
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333 
334 


SO. ILOP = BIT4 ’ 
SO. IOBY * BITS ’ 
SO. IRWO * BIT2 i 
SO. IFBY « BIT1 ‘ 
SO.IFPT * BITO : 


3¢ 

sUNIBUS MAP DEF INATIONS 
:- 

MMRO = 170200 


-SBTTL SPECIAL MACROS AND OPDEFS. 


3° 
;SAVE -ENERAL REGS 1 TO 5S 
3 - 

-MACRO SAVREG 


JSR RS ,REGSAV 
. ENDOM 


3¢ 
: MACRO TO FORCE AN ERROR 


ILDP L 
TOBY L 
TRWO L 
IFBY L 
IFPT L 


- MACRO FORCERROR TAG,NOTSSR 

ies NOF LISTALL, .NLIST 

IF 8 NOTSSR 

nec MOV TSSRCRS),R1 sREAD TSSR 

: MOV FORCER ,FORCER sIS FORCER =T? (LEAVE C BIT ALONE) 
BNE TAG sBR IF YES 

-NLIST 

"Pie, NOF LISTALL, .LIST 

el 

-ENOM 

3 

s MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

F WILL EXIT TO A LABEL IF FORCEP IS NEGATIVE 

3 SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

; FORCER TO 177777 

; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

MACRO FORCEXIT TAG 


-NLIST 
-IIF NOF LISTALL, .NLIST 
-LIST 


MOV FORCER,FORCER sIS fg NEGATIVE? 


BMI TAG :BR IF YE 
«NLIST 
-IIF NOF LISTALL, .LIST 
-LIST 
-ENDM 


3° 


SEQ 029° 


TSV3_- GLOB 
SPECIAL MACROS AND OPDEFS. 


002170 
002172 
002174 
002176 
002200 
002202 
002204 
002206 
002210 
002212 
002214 


AL AREAS 


Ra 
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s MACRO TO INCREMENT ERROR COUNTS 
ss 
-MACRO NEXT.ERRNO 
»-NLIST 
333.ITIF NOF LISTALL, .NLIST 
ERRNO=ERRNO+1 
333.IIF NOF LISTALL, .LIST 
-LIST 
.ENOM 
3° 
sMACRO TO PERFORM XOk 
a 
-MACRO XOR A.B 
MOV A,-CSP) 
BIC B.CSP) 
BIC A.B 
BIS (SP)+,B 
EN=0 3s INITIALIZE ERROR NUMBER 
-SBTTL FORCER - FORCE ERROR FLAG 
é 
; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
3 
FORCER: : 0 s FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
; - BY THE MACRO "IFERROR”). AN ERROR NEED NOT - 
s - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
-SBTTL GLOBAL DATA SECTION 
ze 
sTHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
3IN MORE THAN ONE TEST. 
gece 
3 
s THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
® 
EPRTSW: : -WORD O sPRINT SWITCH 
UNITN:: -WORD O sUNIT @ UNDER TEST. 
QvP:: «WORD O sQUICK VERIFY FLAG. 
CSRADOR: : -WORD O sADDRESS OF CSR FOR CURRENT DEVICE 
IVEC:: «WORD 224 s INTERRUPT VECTOR 
IPRI:: -WORD PRIO4 s INTERRUPT PRIORITY. 
TSTCNT:: -WORD O sNUMBER OF TESTS RUN IN THIS PASS 
LOOPCNT: : -WORD O sREMAINING ITERATION COUNT FOR TEST 
DEVCNT:: -WORD O sNUMBER OF DEVICE UNDER TEST 
FATFLG:: -WORD O sSET IF FATAL ERROR IS DETECTED IN TEST 
INTRECV:: -WORD O sSET IF TAPE INTERRUPT WAS RECEIVED 


SEQ 030 


TSV3_ - GLOBAL AREAS 
GLOBAL DATA SECTION 


EXTFEA:: 
BENBSW: : 
EXPD:;: 
RECV:: 
ERRHI:: 
ERRLO:: 
RAMDATA: : 
RAMSIZ:: 
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RCVHIADD: : 
en nda 


-SBTTL TSTBLK 


3¢ 


mn 
N 


GOGO SCooCOoRooCoeCO 


SEQ 031 


sEXTENDED FEATURES SOFTWARE SW O=OFF;1*0ON 
sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
“eon ADDRESS MEMORY ERROR 

LOW ADDRESS MEMORY ERROR 
;DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
sRAM DATA SIZE FOR PRAMPKT ROUTINE 
sRECEIVED BUFFER HIGH ADDRESS 
sRECEIVEO BUFFER LOW ADDRESS 
:TEST COUNT PATTERN 
sTEST DATA 
sTEST FLAG WORD 
sTSTBLK POINTER 
sPRINT ROUTINE TEMP 
sEXPECTED MESSAGE BUFFER DATA 
sRECEIVED MESSAGE BUFFER DATA 
s TEMPORARY STORAGE FOR PRINT 


- TEST DATA TABLE 


‘ 
sTHIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 


6 
:IN SEQUENCE THE DATA IS: 


1 
177776 
177775 


3 
3 ALL ZEROS 
3 ALL ONES 
: WALKING ONES 
; WALKING ZEROS 
3 ALTERNATING ONES AND ZEROS 
3 
a . 
TSTBLK:: 
-WORD O sALL ZEROS 
. WORD 177777 sALL ONES 
-WOPD BITO sDATA FOR WALKING ONES 
-WORD BIT1 
»WOFD 8IT2 
-WORD BIT3 
-WORD BIT4 
-WORD BITS 
-WORD BIT6 
-WORD BIT7 
«WORD BITS 
-WORD BITS 
«WORD BIT10 
-WORD BIT11 
«WORD BITI2 
-WORD BITLS 
-WORD BIT14 
-WORD BITI5 
WORD tCBITO sDATA FOR WALKING ZEROS 
. WORD *CBIT1 


TSV3 - GLOBAL AREAS 


TSTBLK 


- TEST DATA TABLE 


177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 


000000 100000 000000 
000000 000000 000000 


TBLEND==. 
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. SBTTL 


tCBIT2 
tCBITS 
tCBIT4 
tCBITS 
*CBIT6 
tCBIT7 
tCBITS 
tCBIT9 
tCBIT10 
tCBIT11 
tCBIT12 
*CBIT13 
tCBIT14 
+CBIT1S 
125252 
052525 


G3 


SEQ 032 


sALTERNATING ONES, ZEROS 
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


GLOBAL ENVIRONMENT STORAGE 
3 

sSTORAGE FOR DEVICE REGISTERS 

‘ 

DUMMY: 0,100000,0,0 


0,0,0,0,0,0,0,0 
OUFLG:: . WORD 
NODEV: : WORD 
TEMP1:: - WORD 
TEMP2:: . WORD 
XXCOMM: : .WORD 
FREE: : . WORD 
FRESIZ:: . WORD 
FREEHI: .WORD 0 
KTFLG:: . WORD 
KTENABLE: : » WORD 
NXMFLG: : .» WORD 
NXMLO: .» WORD 
NXMHI: .» WORD 
T23A:: . WORD 
T23B:: » WORD 
T3BFLG . WORD 
PST32W WORD 
SIFLAG WORD 
BADDAT: : . WORD 
GDDAT: . WORD 
LOOPFL . WORD 
CTAB:: 
CTABM: WORD 
. WORD 


sDUMMY DEVICE REGISTERS... 
3...FOR MULTI-UNIT CHECKOUT. 


s"DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
sFLAG TO SAY NO DEVICE. 


sSOME TEMP LOCATIONS. 


3XXOP+ COMM BLOCK POINTER. 
;1ST FREE MEMORY ADDRESS... 
3...AND SIZE CIN WORDS). 
;LAST WORD IN FREE SPACE 
sKTL1, MEM AVAIL FLAG - 
3- .WORD QO = <24K OR NO KT - 
s- NZ = >24K AND KT. 
sSET BY TEST ROUTINES TO FLAG >28K UNDE 
;SET IF WE CAN TEST CLEARED OTHERWISE 
3NXM LO ADORESS BITS 
sNXM HI ADDRESS BITS FOR DAL’S 16-21 
sPROCESSOR TYPE FLAG 
sPROCESSOR TYPE FLAG B 
:TEST 38 FLAG tO 
332W BLOCK ADDRESS FOR 32K START 


é 
sACTUAL DATA 
sEXPECTED DATA 


sCONFIGURATION TABLES. 
sCONFIG WORK. 


o oo0o00o 3c 0 


ooo fo Bees 


R’ TEST 


TSV3_ - GLOBAL AREAS 
GLOBAL ENVIRONMENT STORAGE 


003162 
003164 
003166 


003166 
003366 


003370 


000000 
177777 


124 


0S2 


003532’ 
003573' 


123 


oS2 


003535' 
003577' 
103 


125 


oS2 


003541' 
003603’ 
000 


. 


H3 
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.WORD 0 
een ‘WORD -1 sEND OF MEM TABLE. 
;ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
: 
: 0 . UNIT NOT TESTED 
; 100000 = UNIT ONLINE, NO ERRORS 
: LOXXXX = UNIT ONLINE, ENCOUNTERED XXxx ERRORS 
: 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
: 160001 = UNIT DROPPED, NOT IDOLE AT START 
: L4XXXX = UNIT DROPPED, ENCOUNTERED XXXxX ERRORS 
Hy 
ERTABL: .BLKW 64. 
ERTABE: .WORD 0 
SKIPT: .WORD 0 :1*SKIP SUBTEST O=NO SKIP OF. SUBTEST 


-SBTTL GLOBAL TEXT MESSAGES 


see 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
3 MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

a= 


3¢ 
sNAMES OF DEVICES SUPPORTED 
= 


DEVTYP <TSUOS> 
LSOVTYP:: 
-ASCIZ /TSUOS/ 
.EVEN 
3+ 
3 TEST DESCRIPTION 
DESCRIPT <aeee TSUOS DIAG PART 3 - CHK CABLES-TRANSPORT IF ERR aese> 


LSDESC:: 
— /eeee TSUOS DIAG PART 3 - CHK CABLES-TRANSPORT IF ERR sen0/ 
EVEN 


3 
sBIT TO ASCII CONVERSION FOR TSSR REGISTER 
g° 


TSSRBIT: : -WORD 1$,2%,3%,4%,5%,6%,7%,8$ 
-WORD 9$,10$,11$,12$,135%,14%,15$,16$ 
1$ ASCIZ ‘SC’ 
es ASCIZ ‘BIE' 
3% ASCIZ ‘SCE’ 
4$ ASCIZ ‘RMR’ 
5$ ASCIZ ‘NxM’ 
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GLOBAL TEXT MESSAGES 


003561 102 111 
003566 102 111 
003573 123 123 
003577 117 106 
003603 102 111 
003610 102 111 
003615 102 111 
003622 102 111 
003627 102 111 
003634 102 111 
003642 124 123 
003675 124 123 
003730 040 040 
003767 045 101 
004010 045 101 
004050 045 101 
004107 045 116 
004115 040 040 
004142 040 040 
004205 045 116 
004211 04C 040 
004246 040 040 
004270 045 101 
004325 040 040 
004377 040 040 
004447 040 040 
004517 000 

004520 045 116 
004523 945 101 
004557 045 116 
004633 045 101 
004735 122 101 
005003 040 040 
005046 127 122 
005103 124 123 
005176 124 123 
005270 106 101 
005362 105 122 
005450 045 116 
005544 

005544 

005544 


005544 013746 003104’ 
005550 012746 003767’ 
005554 012746 000002 
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7$;: .ASCIZ 
8$: .ASCIZ 
9%; .ASCIZ 
10$: .ASCIZ 
11$: .ASCIZ 
12$: .ASCIZ 
13$: .ASCIZ 
14$: »ASCIZ 
158: .ASCIZ 
168; .ASCIZ 
EVEN 
SFIERR: .ASCIZ 
SFHERR: .ASCIZ 
NXR: .ASCIZ 
NXRX: ASCIZ 
TSSX: ASCII 
ASCIZ 
FUSI: ASCII 
USI: -ASCIZ 
NSTI: .ASCIZ 
FNOINTR: 
NOINTR: .ASCIZ 
IFAULT: .ASCIZ 
INTX: .ASCIZ 
NOINIT: .ASCIZ 
NSINIT: .ASCIZ 
BRINIT: .ASCIZ 
NUL: -ASCIZ 
NULCR: ASCIZ 
EXPGOT: .ASCIZ 
EXPGT2: .ASCIZ 
OVAD12: .ASCIZ 
PKTRAM:: 
SCME : ASCIZ 
WRTMSG: .ASCIZ 
WRTERR: .ASCIZ 
RDERR: ASCIZ 
SCHERR ASCIZ 
RETERR: .ASCIZ 
NOMEM: .ASCIZ 
EVEN 
SBTTL 


see 


s THE GLOBAL ERROR REPORT =o wy aig THE PRINTB AND PRINTX 


is 


‘TSSR ERROR AFTER SOFT INIT‘ 

‘TSSR ERROR AFTER BUS RESET’ 

/ NON-EXISTANT DEVICE REGISTER/ 
/#A ADDRESS: #06/ 

/#A TSBA,TSSR EXP'D: 068A, 8068N/ 
/#A TSBA,TSSR REC'D: #068A,806/ 


/SNBA/ 


/ UNEXPECTED INTERRUPT/ 


/ INTERRUPT EXPECTED, 


-ASCII /ssNSA/ 


NOT RECEIVED/ 


7 NO INTERRUPT WAS GENERATED/ 

4 INTERRUPT FAULT/ 

/#A CPU PC: SO68A TSBA: #06/ 

/ “BUS-INIT” DION'T INITIALIZE CONTROLLER/ 


/ “SOFT-INIT" OION'T 


INITIALIZE THE DPU/ 


/ “BUS-RESET” DION'T INITIALIZE THE DPU/ 


4/ 
/8N/ 


/#A EXP'D: S068A, REC'D: 


#06/ 
/SNSA EXP'D: SO6SA, SO6SNSA REC'D: 


SOSA, 806/ 


SEQ 034 


/#A REGCW) WRITTEN TO: 068A REGCR) READ; EXP'D: s068A, REC'D: 


-ASCIZ 


‘RAM Contents Do Not Match Packet Sent’ 


4 CONFIG DOESN’ T MATCH MFG. MASTER/ 
"WRITE CHARACTERISTICS Failed’ 
‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 


‘TSSR Incorrect After READ C 


ommand, More Bits Set Than SSR’ 


‘FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES, TRANSPORT etc.’ 


‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED’ 
‘sNSA @¢4¢¢ NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. 


GLOBAL ERROR REPORT SECTION 


; CALLS THAT ARE USED IN MORE T ST 
; ASCII TEXT STRINGS ARE FOUND TN THE GLOBAL TEXT SECTION. 


NXRERR: : 


NXRERR 


@NXRX , NODEV 
NODEV, -(SP) 
@NXRX, -C SP) 
#2,-(SP) 


sNON-EXISTANT DEVICE REGISTER. 


sNODEV = NEXM ADDRESS. 


2eee0eGN' 


$06/ 


TSV3_- GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


005727 
000000 


001402 
004777 


012746 


JS 
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000006 
005576’ 


177770 


004520' 
000001 


000004 


006315‘ 


015744' 


MOV SP ,RO 

TRAP C$PNIX 

ADD #6 ,SP 

JSR PC,EXTEND s PRINT EXTENSION IF REQUIRED. 
ENDMSG 


L10002: 
TRAP C$MSG 


; THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


é 
EXTEND: TST (PC)+ 
EXTA: i) ; O = NO EXTENSION. 
BEQ 1$ 
JSR PC, @EXTA 3 APPEND EXTENSION TEXT. 
1$: PRINTX #@NULCR ; PRINT A BLANK LINE 
MOV @NULCR, -C SP) 
MOV #1,-¢€S 
MOV SP, 
TRAP C$PNTX 
ADD 04 ,SP 
RTS PC 


-SBTTL PRITSSR - PRINT TSSR CONTENTS 
3° 
é 
sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 


sTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
sBY A MESSAGE PRINTING ROUTINE 


: 

: INPUTS: 

; R1 CONTENTS OF TSSR 

3 

;SUBORDINATE ROUTINES: 

3 

F CHKAMB CHECK FOR AMBIGUOUS CONTENTS 

: 

3 _ 

PRITSSR: 
SAVREG ;SAVE GENERAL REGISTERS 
MOV R1,R4 sSAVE THE TSSR CONTENTS 
PRINTB #TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 
MOV @TSSRFOR, -( SP) 
MOV SP, 


MOV R4,RO sGET TSSR BACK FOR CHKAMB 
JSR PC , CHKAMB sARE CONTENTS AMBIGUOUS ? 
BCS 5 sBRANCH IF NOT 


$ 
PRINTX @AMBTSSR sSHOW CONTENTS ARE AMBIGUOUS 


SEQ 035 
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PRITSSR - PRINT 


758 
760 


005672 


012746 


012746 
012746 
012746 
010600 
104415 
062706 


010403 
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006535' 
000001 


000004 
001476 


002622' 
003472' 


000054 177777 


002622' 
006506' 
000002 


000006 


177761 
006576' 


006376' 
000002 


000006 
177717 


007136' 


006437" 
000002 


000006 
176377 


S$; 


10$: 


11$: 


13$: 
15$: 


20$: 


25%: 


BEQ 
PRINTX 


KS 


@AMBTSSR, -CSP) 
P) 


R4,R3 
@HIADDR!IFATERR!T 
20% 


@TMPBFR ,R2 
+ atari 


15$ 
R3 
13% 


C(R1),RO 
CRO)+, CR2)+ 
11$ 


-C(R2) 


@TSSDEF , @TMPBFR 


@TMPBFR, -(SP) 
@TSSDEF , -C SP) 


R4,R3 
@tCTERCLS,R3 
TCOCOD(R3),.R3S 
@TCOASC ,,R3 
R3, -(SP) 
yes Fe 


R4,R3 
@tCFATERR,RS 
25$ 

R3 

R3 


R3 
TSFCODCR3),R3 
@TFCASC,R3 
R3, -(SP) 
@TFCASC, -(SP) 
@2,-C(SP) 


@tCHIADOR ,R4 
30$ 
@TEXASC ,R4 


ONTENTS OF TSSR 


sNO BITS ARE SET 

s TEMPORARY ASCII BUFFER 
sASCII EQUIVALENT OF BITS 
sREMAINING BITS TO CONVERT 
sBRANCH WHEN ALL ARE DONE 
sCLEAR CARRY FOR SHIFT 
sSHIFT NEXT BIT TO CARRY 
sBRANCH IF BIT NOT SET 
sPOINTER TO BIT DEFINITION 
sMOVE ASCIZ TO BUFFER 
sMOVE ALL BITS 

sINSERT A COMMA TO TERMINATE 
sPOINT TO NEXT DESCRIPTION 
3;GET THE REMAINING BITS 
sTERMINATE THE LINE 

sPRINT THE BIT DEFINITIONS 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

;GET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
;CLEAR ALL BUT FATAL TERMINATION 
;00N'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
;GET THE FATAL TERMINATION CODE 
s;PRINT THE FATAL TERMINATION CODE 


;CLEAR ALL BUT EXTENDED ADDRESS 


;D0N'T PRINT IF ZERO 
s;PRINT THE EXTENDED ADDRESS BITS 


SEQ 036 


3C 
ERCLS,R3 ;CLEAR ALL MULTIPLE BIT FIELDS 


TSV3 - GLOBAL AREAS 


PRITSSR - PRINT 


761 
762 


TSSR CONTENTS 


010446 

012746 006335’ 

012746 , 000002 

010600 

104415 

062706 000006 

013703 002170' 

010346 

012746 000001 

010600 

104415 

062706 000004 

000207 
045 116 
045 116 
045 116 
045 116 
045 116 
045 116 
045 116 
045 116 

006616' 006641' 
116 157 
124 145 
124 141 
106 165 
122 145 
122 145 
125 156 
106 141 

007146‘ 007202’ 
111 156 
122 145 
102 165 
122 145 


007213' 


MACRO M1113 01-FEB-84 17:54 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
30$: MOV 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
RTS 
EPRT1: .ASCIZ 
EPRT2: .ASCIZ 
TSSRFOR: 
TEXASC 
TCOASC: 
TFCASC 
SSDEF : 
AMBTSSR 
EN 
TCOCOD: .WORD 
i$ -ASCIZ 
es -ASCIZ 
3$ .ASCIZ 
4$ -ASCIZ 
S$ -ASCIZ 
6$ -ASCIZ 
7$ -ASCIZ 
8$ .ASCIZ 
EVEN 
TSFCOD: .WORD 
1$: *ASCIZ 
es -ASCIZ 
3$ -ASCIZ 
4$: ASCIZ 
EVEN 
SBTTL 


&. 


R4, -(SP) 
@TEXASC, -(SP) 
#2, -(SP) 
SP,RO 

CSPNTX 

#6 , SP 
EPRTSW,R3 sPRINT MEAASGE BUFFER ADDRESS 
R3 sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


SEQ 037 


‘SNSA seeeeCHECK CABLES BETWEEN M7455 AND TRANSPORT ee4e4°' 


NSA aeeeeCHECk TRANSPORT sase0' 


-ASCIZ ‘sNSA TSSR = 806‘ 
-ASCIZ SNSA Extended Address Bits = #06’ 
-ASCIZ ‘SNA Termination Class Code = sT’' 


-ASCIZ ‘sSNA Fatal Termination Class Code = sT‘ 
-ASCIZ ‘sNSA TSSR Bits Set: sT’ 


-ASCIZ ‘NSA TSSR Contents Are Ambiguous’ 


1$,2$,3%.4$,5%$,6$,7$,8$ 

‘Normal Termination’ 

‘Termination Condition’ 

‘Tape Status Alert’ 

‘Function Reject’ 

‘Recoverable Error - Tape Position One Record Down’ 
"Recoverable Error - Tape Was Not Moved’ 
‘Unrecoverable Error' 

‘Fatal Controller Error’ 


1$,2$,3%,4$ 

‘Internal Diagnostic Failure’ 

‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 

‘Reserved’ 

PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


3¢ 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
;THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


3 
3; INPUT: 


D 
> 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


TSV3 - GLOBAL AREAS 


PRIPKT 


007270 
007270 
007274 
007276 
007302 


012402 
010246 


MACRO M1113 01-FEB-84 17:54 
- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


003124' 


007454’ 
000003 


000010 


017220' 


007416' 
000003 


000010 


116 
116 


045 
045 


PRIPKT: : 


10$: MOV 


15$: MOV 


208: CLR 
25%: MO 


PKTFRM: 
PKTADD: 


-ASCIZ 
-ASCIZ 
-EVEN 


M3 


RO,RS 
K TENABLE 
10$ 


R1 

CR4)+,R2 
OPKTFRM,R1,R2] 
R2,-C(SP) 
R1,-CSP) 
ale ga 


;SAVE THE REGISTERS 

s;SAVE NO. OF WORDS IN PACKET 
sABOVE 28K UNDER TEST? 

;BR IF YES 

;SET HIGH ORDER ADDRESS TO O 
;COPY HIGH ORDER ADDRESS 
;GET LOWER ADDRESS 

;SHIFT BIT 15 INTO C BIT 
sAND INTO HIGH ORDER. 

;PRINT PACKET ADDRESS 


sGET HIGH ORDER ADDRESS 
3BR IF NOT ABOVE 28K. 
sGET LOW ORDER ADDRESS 


;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
;GET RETURNED tiny ADDRESS BIAS 


;SAVE WORD NUMBE 
;GET PACKET CONTENTS 
sPRINT THE DATA 


;NEXT WORD NUMBER 
;DONE ALL PACKET WORDS? 


“;LOOP TILL ALL DONE 


;RETURN 


‘@NSA Packet Word #SD18A = #06’ 
‘gNSA Packet Address = #01805’ 


-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


3¢ 


a 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 


sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


: 

; INPUTS: 

7 

: R1 
; R2 


é 
;OUTPUT: 
3 


RECEIVED DATA 
EXPECTED DATA 


SEQ 038 


TSV3 - GLOBAL A 


PRIBXOR 


REAS 


010203 
012700 


010203 


010346 
010146 
010246 
012746 
012746 
010600 


MACRO M1113 9- FEB-84 17:54 
- PRINT EXPD, RECV AND XOR BYT 


177400 


007574' 
000004 


000012 


116 


007712’ 
000004 


045 


RO 


PRIBXOR: : 


3¢ 


- SBTTL 


NS 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


R2,R3 sEXPECTED DATA 

R1,R3 sFORM THE EXCLUSIVE OR 
@tC<377>,RO0 sBYTE MASK 

RO,R1 s;SAVE LOW BYTE RECV 
RO,R2 sSAVE LOW BYTE EXPD 
RO,R3 sSAVE LOW BYTE XOR 


@XORBFOR, R2,.R1, R3 sPRINT THE MESSAGE 
R3, -CSP) 


) 
@XORBFOR, -CSP) 
04,-(SP) 
SP ,RO 
CsPNTB 
#12,SP 
R3,RO sRO HAS XOR ON RETURN 
PC sRETURN TO CALLER 


-ASCIZ ‘sNSA EXPD: S038A RECV: SO3S8A XOR: #03’ 


PRIXOR - PRINT EXPD, RECV AND XOR 


° 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


; INPUTS: 


R1 
R2. 


RO 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 


Re, ~ TORN Tee DATA 

R1 FORM THE EXCLUSIVE OR 
OXORFOR, R2,R1, Rs sPRINT THE MESSAGE 
R3,-(SP) 

R1,-CSP) 

Re, -(SP) 


#XORFOR, -( SP) 
04, -(SP) 


SP,RO 


SEQ 039 


007760 
007760 
007764 


AREAS 
EXPD, RECV AND XxOR 


000207 


B4 
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116 


010016' 


045 


TRAP CSPNTB 


ADD @12,SP 
MOV R3,RO sRO HAS XOR ON RETURN 
RTS PC sRETURN TO CALLER 

XORF OR: a ‘SNSA EXPD;: SO68A RECV: SO6SA XOR: 806’ 
EV 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
3° 


i 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


4 
s INPUTS: 


; RO OCTAL VALUE TO CONVERT 

H R1 TABLE OF POINTERS TO ASCII EQUIVALENT 

2 

3* 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 
| 


° 
sPRINT CONTROLLER RAM ADDRESS. 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


a 
s INPUTS: 


a 
: Ra RAM ADDRESS 
a 
i- 
PRIRAM: 
SAVREG ;SAVE R1-85 UNTIL NEXT RETURN 
PRINTB @RAMFOR,RG sPRINT RAM ADDRESS IN ERROR 
MOV R4,-( SP) 
MOV OR OR, -( SP) 
MOV SP RO 
TRAP CSPNTB 
ADD @6,SP 
RTS PC sRETURN 
RAMF OR: sauce ‘S@NBA CONTROLLER RAM ADDRESS = 606" 
.tV 


-SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


C4 


$R¥Soo “BA t*Aiony eBGRPABBAEES O1-FEB-84 17:58 


010174 
010174 
010200 
010204 


010210 
010210 
010212 
010216 
010222 
010224 
010226 


013702 
013701 


010146 
012746 


a 
sPRINT MEMORY ADDRESS 


is THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


: IMPLICIT INPUTS 


’ ERRHI - MIGH ORDER ADDRESS 
' ERRLO - LOW ORDER ADORESS 
: 
— 
PRIADO 
SAVREG sSAVF R1-RS UNTIL NEXT RETURN 
002226' MOV ERRHI,RO sGET 4IGH ADORESSS 
002230' MOV ERRLO,R1 sGET LOW ADORE 
MOV R1,R2 sCOPY LOW ADDRESS 
ROL Ri sSHIFT BIT 15 TOC BIT 
ROL RO sSHIFT INTO HIGH ORDER 
PRINTB OPRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
MOV Re, -¢ 
MOV RO, -( SP) 
010130" MOV @PRIAO, -( SP) 
000003 MOV @3, -(SP) 
MOV SP ,RO 
TRAP CSPNTB 
000010 ADD @10,SP 
RTS PC sRE TURN 
116 045 PRIAO: os 'aNSA MEMORY ERROR ADDRESS + 801805' 


-SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 


a 
sPRINT MEMORY ADDRESS 


sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; IMPLICIT INPUTS 


3 
> 
; ERRHI - MIGH ORDER ADDRESS 
; ERRLO - LOW ORDER ADDRESS 
3 
i 
PRITADD 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
002226' MOV ERRHI ,R2 sGET HIGH ADORESSS 
00<. 30’ MOV ERRLO,R1 sGET LOW ADDRESS 
sMOV R1,R2 sCOPY LOW ADDRESS 
sROL R1 sSMIFT BIT 15 TOC BIT 
sROL RO sSHIFT iNTO HIGH ORDER 
PRINTB @PRITO,R1 sPRINT MEMORY ADDRESS LOW IN ERROR 
MOV R1, -(SP) 
010256" MOV OPRITO, -( SP) 
000002 _ @2, -(SP) 
Vv 


SP ,RO 
TRAP CsPNTs 
000006 ADD 06, SP 


SEQ 041 


D4 


T , P i . 
PRYFaGo™ BA tPREony TPSFPROBAEEE OF FEB-04 17:54 ane ona 
1001 010232 PRINTB @PRIT1,R2 sPRINT MEMORY ADDRESS HIGH IN ERROR 
010232 010246 MOV R2, -( SP) 
010234 012746 010321’ MOV OPRIT1, -(SP) 
010240 012746 000002 MOV 02,-(SP) 
010244 010600 MOV SP ,RO 
010246 104414 TRAP CSPNTB 
010250 062706 000006 ADD @6,SP 
oon 010254 000207 RTS PC ;RETURN 
1 
1004 010256 045 116 045 PRITO: .ASCIZ ‘sSNSA MEMORY TEST ADDRESS LOW = #06’ 
1005 010321 045 116 045 PRIT1: .ASCIZ ‘sSNA MEMORY TEST ADDRESS HIGH = #06' 
1006 -EVEN 
1008 
1 
1009 .SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1010 
iOll 3° 
1012 3 
1013 sROUTINE TO ISSUE A SPACE RECORDS 
1014 ;COMMAND (FORWARD OR REVERSE ) 
1015 3 
1016 3: INPUT; 
1017 Fy 
1018 3 R3 NUMBER OF RECORDS TO BE SPACED OVER 
1019 3 BIT15 CONTROLS DIRECTION 
1020 3 BIT1S = O IS FORWARD 
1021 3 BIT1S = 1 IS REVERSE 
iose 3 RS FIRST DEVICE UNIBUS ADDRESS 
3 
ped 8 REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
PF 
1026 ;OUTPUT: 
1027 3 
1028 3 CARRY SET - SPACE RECORDS COMMAND OK 
1029 3 CLR - SPACE RECORDS FAILED 
1030 : 
1031 ; 
ese : RO THE CONTENTS OF R4& IS MOVED TO RO 
3 
1034 : 
1035 sIMPLICIT OUTPUT: 
1036 3 
1037 : TAPE HAS BEEN MOVED 
1038 ; 
1039 sSIDE EFFECTS: 
1040 : 
1041 3 
1042 :- 
1043 
1044 010366 SPACE: : 
1045 010366 SAVREG sSAVE THE GENERAL REGISTERS 
1046 010372 012737 000764 010560’ MOV #500. ,SDELAY 3SET UP DELAY 
1047 010400 012737 140010 010550’ MOV #140010, 80$ sSET UP COMMAND, SPACE FORWARD 
1048 010406 005703 TST R3 sCHECK FOR DIRECTION 
1049 010410 100403 BMI 5$ 3BR, IF REVERSE INDICATED 
1050 010412 010337 010552’ MOV R3,90% ;LOAD UP NUMBER OF RECORDS TO SPACE 


1051 010416 000407 BR 10% sGO DO COMMAND 


TSV3_ - GLOBAL 


SPACE 


AREAS 
- SPACE RECORDS 


042703 
010337 
052737 
012704 
010465 
004737 
103420 


012727 
000000 
013727 
000000 


E4 


MACRO M1113 01-FEB-84 17:54 SEQ 043 
CFORWARD AND REVERSE) COMMAND 


100000 
0105S2' 
000400 


010550’ 
000000 
016150' 


000250 
002116' 
177772 
177756 
010560' 


000002 
000200 


010550’ 


S$: BIC oBIT15,R3 sCLEAR DIRECTION BIT 
MOV R3,90$% sLOAD UP NUMBER OF RECORDS TO SPACE 
BIS BITS, 80$ :SET REVERSE BIT IN COMMAND PACKET 
10$: MOV 980$ ,R4 3SET UP R4 WITH PACKET ADDRESS 
MOV R4,TSOBCRS) +SEND OUT COMMAND 
15$; JSR PC ,WAITF ;WAIT FOR SSR 
BcS 20s ;BR, IF SSR IS SET AND OK 
DELAY 250 sDELAY ABOUT .25 SECONDS 
MOV @250,(PC)-+ 
-WORD O 
MOV LSDLY,(PC)>+ 
-WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
DEC SDELAY sBUMP DELAY COUNTER DOWN 
BNE 158 ;8R, IF MORE DELAY 
BR 60$ ;8R IF TROUBLE CARRY = CLEAR 
208: MOV TSSRCRS),R1 sREAD TSSR 
MOV @SSR,R2 ;SET UP EXPECTED 
25s: CMP R2,R1 sARE THEY OK 
BEQ 403 ;B8R, IF EQUAL = OK 
BR 60% ; TROUBLE EXIT 
40$: SEC ;SET CARRY NO TROUBLE 
BR 70$ sEXIT 
= CLC sCARRY CLEAR = ERROR 
MOV R4,RO sPASS PACKET ADDRESS 
RTS PC ;RETURN 
3 
a 
3 
sPACKET FOR SPACE COMMAND 
3 
.BLKB 10-<, -TSV2E7> 
3 
;COMMAND WORD 
80%: . WORD 
sNUMBFR OF RECORDS TO BE SPACED OVER wORD 
90%: . WORD 
. WORD 
. WORD 
SDELAY: .WORD 0 ;DELAY COUNTER 


-SBTTL WRICHR - WRITE CHARACTERISTICS COMMAND 
3° 


: 
sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


’ 
3; INPUT; 
3 


TSv3 
WRTCHR 


- GLOBAL AREAS MA 


- WRITE CHARACTERI 


SPO tS ats -FEB-84 17:54 


OUTPUT: 


010562 WRICHR: : 
910562 

010566 005037 002220' 

010572 005037 002216' 

010576 010465 000000 10$: 
010602 004737 016236’ 

010606 103401 

010610 000435 

010612 016501 000002 208: 
010616 012702 000200 

010622 032701 000100 

010626 001402 

010630 052702 000100 

010634 020201 258: 
010636 001401 

010640 000421 

010642 062704 000010 40$: 
010646 011403 

010650 032763 000200 000012 
010656 001402 

910660 005237 002216' 

10664 4S5$: 
010664 032763 000100 000012 
010672 001402 

010674 005237 002220’ 

010700 50$: 
010700 000261 

010702 000401 

010704 000241 60%; 
010706 916500 000002 70$; 
010712 000207 


R4 
RS 


RO 
CARRY 


F4 


ADDRESS OF PACKET FROM TEST 
FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONTENTS 


SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA = EXTENDED FEATURES PRESENT 
BEN6SW = BUFFER ENABLE SWITCH ON OR OFF 


SIDE EFFECTS: 


BENBSW 
EXTFEA 

R4, TSOBCRS) 
PC ,.CHKTSSR 
20% 


60$ 
TSSRCRS),R1 
R2 


CR4),R3 
@X2.EXTF,xXST2CR3) 
4ss$ 

EXTFEA 
OX2.BUFE,xST2(R3) 
SOs 


BENBSW 


70$ 
TSSRCRS),RO 
PC 


REWIND 


SEQ 044 . 


sSAVE THE GENERAL REGISTERS 


;CLEAR BUFFER ENABLE SWITCH 


sCLEAR EXTENDED FEATURES SW SWITCH 


:SEND OUT COMMAND 
;WAIT FOR SSR 


3BR, IF SSR IS SET AND OK 
;BR IF TROUBLE CARRY = CLEAR 


sREAD TSSR 
;SET UP EXPECTED 


;WAS OFF LINE SET IN TSSR 


:BR, IF NO OFL SET 


sMAKE THEM LOOK ALIKE 


;ARE THEY OK 
;B8R, IF EQUAL = OK 


*; TROUBLE EXIT 


sPOINT TO WRT CHARA DATA PACKET 
sGET ADDRESS OF MESSAGE BUFFER 
sEXTENDED FEATURES BIT SET? 


;BR IF 


NO 
3SET EXTENDED FEATURES SW SWITCH 


;BR, IF SWITCH NOT SET 


;BUFFER ENABLE SWITCH SET 


sSET SOFTWARE SWITCH FOR ENABLED 


;SET CARRY NO TROUBLE 
EXIT 


3EX 
sCARRY CLEAR = ERROR 
sRETURN TSSR CONTENTS 


;RETURN 


- POSITION TAPE (REWIND) COMMAND 


TSV3 - GLOBAL AREAS 


REWINO 


1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 


010714 
010714 
010720 
010724 
010730 
010734 
010740 
010742 
010742 
010746 
010750 


011012 


102010 
000000 


011010° 
000000 
000550 
016150’ 
000372 
002116’ 
177772 
177756 


SOBOSITION TAPE CREWINDS COMMAND oO 17254 


3¢ 


G4 


SEQ 045 


3 
sTHIS ROUTINE WILL REWINC THE SELECTED TAPE. 


JSR 
INPUT: 
RS 


OUTPUT 


‘ 
a 
Hy 
i 
Hy 
3 
Hy 
3 
Hy 
Hy 
7 
. 
7 
; 
Hy 
Hy 
; 
Hy 
Hy 
: RO 
. 

. 

hes 

R 


EWINO: 


10$: 


20%: MOV 


RWPACK : 


CAUTION: ag ROUTINE DOES NOT WAIT FOR BOT 


ARRIVE. ALSO THE CALLER MUST CHECK FOR 


SSR TO SET IN THE TSSR 


CALLING SEQUENCE : 


DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 


PC ,REWIND 


FIRST DEVICE UNIBUS ADDRESS 


THE CONTENTS OF R4 IS PASSED TO RO 


@RWPACK ,R4 
R4, TSOBCRS) 
#360. ,.R3 
PC ,WALTF 
20% 

250. 

#250. ,(PC)+ 


i) 


10-<, -TSV2E7> 
102010 
.¢) 


CKRAM 


;SAVE R1-RS UNTIL NEXT RETURN 

sGET PACKET ADDRESS 

sSEND PACKET ADDRESS TO EXECUTE 
sENOUGH TIME FOR 2400' REEL TO REWIND 
sWAIT FOR SSR TO SET 

;LEAVE WHEN SSR IS SET 

sWAIT FOR .25 SECONDS 


sBUMP COUNTER DOWN 

sKEEP GOING 

;CLEAR CARRY TO SET ERROR 
sPASS THE PACKET ADDRESS 
;RETURN 


sPOSTION COMMAND (REWIND) 
sNOT USED 


- COMPARE RAM TO I/0 PACKET 


H4 


TSV3 - GLOBAL AREAS MACRO M1113 O1-FEB-84 17:54 SEQ 046 
CKRAM - COMPARE RAM TO I/0 PA tee . 
1211 
1212 3° 
1213 3 
1214 sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
con sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 
1216 3 
1217 3; INPUT: 
1218 3 
1219 F R4 ADDRESS OF THE COMMAND PACKET 
ty 3 RS FIRST DEVICE UNIBUS ADDRESS 
1 ; 
1222 ;OUTPUT: 
1223 3 
1224 3 CARRY SET - RAM MATCHES PACKET 
1225 ; CLR - RAM DOES NOT MATCH PACKET 
1226 ; 
ret s IMPLICIT OUTPUT: 
1 3 
1229 3 THE TABLE RAMDATA IS FILLED WITH THE 
1230 3 DATA HELD IN RAM, 
eet A RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
1 ; 
yan ;SIDE EFFECTS: 
3 
co 3 THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
3 
1237 :- 
1238 
1239 011014 CKRAM: : 
1240 011014 SAVREG sSAVE THE GENERAL REGISTERS 
1241 011020 012701 002232' MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
1242 011024 012702 000201 MOV ORMPKTBEG ,R2 sBYTE ADORESS OF FIRST RAM DATA 
1243 011030 005003 CLR R3 ;CLEAR THE ERROR FLAG 
1244 011032 004737 016236' JSR PC,CHKTSSR ;WAIT FOR SSR 
1245S 011036 112765 000000 000000 MOVB #0, TSOBCRS) ;SET MAINTENANCE MODE 
1246 011044 004737 016236' 10$: JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
1247 011050 010265 000000 MOV R2, TSOBCRS) ;SELECT NEXT RAM ADDRESS 
1248 011054 004737 016236’ JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
1249 011060 116511 000000 MOVB TSBACRS),CR1) sREAD THE RAM DATA 
1250 011064 122124 CMPB CR1)+,CR4)> sCOMPARE TO EXPECTED 
1251 011066 001401 BEQ 20$ ;BRANCH IF OK 
1252 011070 005203 INC R3 ;SET ERROR FLAG 
1253 011072 20%: INC R2 sADDRESS OF NEXT RAM LOCATION 
1254 011074 020227 000210 CMP R2, ORMPK TEND sREACHED END YET ? 
1255 011100 003761 BLE 10$ ;BRANCH TILL ALL READ 
1256 011102 005703 TST R3 3WAS AN ERROR FOUND ? 
1257 011104 001402 BEQ 30$ ;BRANCH IF NOT 
1258 011106 000241 CLC ;CLEAR CARRY TO SHOW ERROR 
1259 011110 000401 BR 50$ sAND EXIT 
1260 011112 000261 30$: SEC :SHOW GOOD COMPARE 
1261 011114 012737 000010 002272: 503: MOV 8. ,RAMSIZ ;SETUP RAMSIZ FOR PRAMPKT ROUTINE 
1262 011122 000207 RTS PC sRETURN 
1263 
1264 
por -SBTTL CKRAM2 ~- COMPARE RAM TO I/O CHARACTERISTICS DATA 


14 


TSv3 - GLOBAL AREAS MACRO M1113 0O1-FEB-84 17:54 SEQ 047 
CKRAM?) COMPARE RAM TO I/0 CHARACTERISTICS DATA 

1268 sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

1269 sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 

1270 H 

1271 ; INPUT; 

1272 3 

1273 ; R4 ADDRESS OF THE CHARACTERISTICS DATA 

‘S75 3 RS FIRST DEVICE UNIBUS ADDRESS 

1 ; 

1276 ;OUTPUT: 

1277 3 

1278 3 CARRY SET - RAM MATCHES PACKET 

1279 Fy CLR - RAM DOES NOT MATCH PACKET 

1280 ; 

isi s IMPLICIT OUTPUT: 

1 3 

1283 3 THE TABLE RAMDATA IS FILLED WITH THE 

1284 3 DATA HELO IN RAM. 

oot ; RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 

1 3 

ise. ;SIDE EFFECTS: 

3 

1289 : THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 

1290 3 

1291 a= 

1292 

1293 011124 CKRAM2: : 

1294 011124 SAVREG ;SAVE THE GENERAL REGISTERS 

1295 011130 012701 002232’ MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 

1296 011134 012702 000167 MOV @RMCHBEG ,R2 sBYTE ADDRESS OF FIRST RAM DATA 

1297 011140 005003 CLR R3 sCLEAR THE ERROR FLAG 

1298 011142 004737 016236' JSR PC,CHKTSSR ;WAIT FOR SSR 

1299 011146 112765 000000 000000 MOVB #0, TSOBCRS) sSET MAINTENANCE MODE © 

1300 011154 004737 016236' 108: JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

1301 011160 010265 000000 MOV R2,. TSOBC(RS) ;SELECT NEXT RAM ADDRESS 

1302 011164 004737 016236’ Y JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

1303 011170 116511 000000 MOVB TSBACRS), (R1) sREAD THE RAM DATA 

1304 011174 122124 CMPB (R1)+,(R4)> sCOMPARE TO EXPECTED 

1305 011176 001401 BEQ 20$ sBRANCH IF OK 

1306 011200 005203 INC R3 3SET ERROR FLAG 

1307 011202 005202 208: INC R2 sADDRESS OF NEXT RAM LOCATION 

1308 011204 012737 000010 002272' MOV 08. ,RAMSIZ sASSUME EXTFEA NOT SET 

1309 011212 005737 002216’ TST EXTFEA :IS THE SOFTWARE EXTENDED FEATURES SET 

1310 011216 001407 BEQ 25% ;6R, IF NOT SET 

1311 011220 012737 000012 002272' MOV 10. ,RAMSIZ 3SET RAMSIZ FOR EXTEND FEATURES 

1312 011226 020227 000200 CMP Re, @RMCHEND :AT END OF EXTENDED BUFFER 

1313 011232 003750 BLE 10$ ;BR, IF NOT AT END YET 

1314 011234 000403 BR 27% :AT END BRANCH 

1315 011236 020227 000176 25%: CMP R2, ORMCHEND -2 sREACHED END YET ? 

1316 011242 003744 BLE 10$ :;BRANCH TILL ALL READ 

1317 011244 005703 27s: TST Qa 3WAS AN ERROR FOUND ? 

1318 011246 001402 BEQ 30$ sBRANCH IF NOT 

1319 011250 000241 CLC . sCLEAR CARRY TO SHOW ERROR 

1320 011252 000401 BR 50$ ;AND EXIT 

1321 011254 000261 30%: SEC ;SHOW GOOD COMPARE 

4t 011256 000207 50$: RTS PC ;RETURN 


TSV3_- GLOBAL AREAS 


CKMSG 


1325 
1326 
1327 


MACRO M1113 01-FEB-84 17:54 
- COMPARE WRITE CHAR. MESSAGE BUFFERS 


002274' 
002276' 
003124’ 


017220' 


002312’ 
002456’ 


000002 
000014 


000200 
000016 


000012 


3° 


.SBTTL 


J4 


CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


e 

sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED SUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


H 

3; INPUT: 

. 

3 RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
S euTput R2 EXPD MESSAGE BUFFER ADDRESS 

o 3 


10$: 


158%: 


25%: 


50$: 


55%: 
60$: 


CARRY 


EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 


. SBTTL 


SET - MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON’T MATCH 


é 
s IMPLICIT OUTPUT: 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 

SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 


RO,RCVHIADD 
R1,RCVLOAD 
KTENABLE 


10$ 
PC ,SETMAP 


R3 

R2,RS 
CR2),EXPMSG(R4 ) 
(R1),RECMSG(R4 ) 
5Oe rab be 


;SAVE R1-RS UNTIL NEXT RETURN 

:SAVE RECV HIGH ADDRESS 

sSAVE RECV LOW ADDRESS 

s TESTING ABOVE 28K? 

;8R IF NO 

sRETURN ADDRESS BIASED TO PARG6 IN RO 
;GET RETURNED ADDRESS BIASED TO PARE 
sWORD IN BUFFER 

;CLEAR ERROR SEEN FLAG 

;GET EXPD BUFFER ADDRESS 

;SAVE EXPD FOR ERROR REPORT 

sSAVE RECV FOR ERROR REPORT 

3EXPD EQUAL RECV? 

;BR IF YES 

:SET ERROR SEEN FLAG 

sPOINT TO NEXT WORD ADDRESS 

;D0NE FIRST 7 WORDS? 


15$ ;8R IF NO 
@X2.EXTF,XST2CR5);IS EXTENDED FEATURES SET IN EXPD? 
50$ 3;6R IF 


sDONE EXTENDED FEATURES WORD? 
;8R IF NO 

sANY ERRORS SEEN? 

;6R IF 

;SET FAILURE 


H 
;SET SUCCESS 
RETURN 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


SEQ 048 


TSV3_ - GLOBAL AREAS 


CKMSG2 


011522 


020327 
003412 
012703 


012746 


MACRO M1113 01- he 84 17:54 
- COMPARE EXPD RECV MESSAGE BUFFERS 


000144 
000144 
011532" 
000001 


000004 

002274' 
002276' 
003124' 


017220' 


002312’ 
002456' 


000001 


3¢ 


IK4 


; 

sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
s;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 
; INPUT; 


CKMSGe: : 


5$: 


10$: 
15$: 


25%: 


50$: 


CARRY 


RECV MESSAGE BUFFER HIGH ORDER ADORESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 

NUMBER OF BYTES TO COMPARE 


SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BYFFERS DON’T MATCH 


IMPLICIT OUTPUT: 


EXPMSG BUFFER IS SET TO EXPD DATA 

RECMSG BUFFER IS SET TO RECV DATA 

RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
CMP R3, ORECMSG - EXPMSG ; 880 IS COUNT ABOVE MAX ALLOWED? 
BLE S$ 3890 BR IF NO 

MOV @RECMSG -EXPMSG, a3; 990 

PRINTF #DEBUGMSG H 

MOV @DEBUGMSG, -( SP) 

MOV @1,-(SP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD 04 ,SP 

MOV RO,RCVHIADD sSAVE RECV HIGH ADORESS 

MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 

TST KTENABLE sTESTING ABOVE 28K? 

BEQ 10$ :BR IF NO 

JSR PC,SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO,R1 ;GET RETURNED ADDRESS BIASED TO PAR6 
CLR R4 sWORD IN BUFFER 

CLR RS sCLEAR ERROR SEEN FLAG 

MOVB (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOVB CR1),RECMSGCR4) ;SAVE RECV FOR ERROR REPORT 
CMPB (R2)¢,C(R1)+ sEXPD EQUAL RECV? 

BEQ 25% ;BR IF YES 

INC RS ;SET ERROR SEEN FLAG 

ADD @1,R4 sPOINT TO NEXT BYTE 

CMP R4,R3 sDONE ALL BYTES? 

BGE Sos ;BR IF YES 

BR 15% 300 NEXT BYTE 

TST RS sANY ERRORS SEEN? 

BEQ 55s :BR IF NO 

CLC 3;SET FAILURE 


SEQ 049 


TSV3_- GLOBAL AREAS 


CRMSG2 


MACRO _M 


- COMPARE EXPD RECV MES 


011524 


011532 
011622 
011633 
011666 
011721 


011734 
011734 
011734 
011740 
011744 
011744 
011744 


011746 
011746 
011746 
011752 
011756 
011762 
011762 
011762 


004737 
004737 


104423 


004737 
012700 
004737 


104423 


005632’ 
017104' 


005632’ 
000004 
007270 


1113 O1-FEB-84 17:54 EQ 05 
ted BUFFERS 6 oe 
BR 60$ 3 
55$: SEC sSET SUCCESS 
608: RTS PC ;RETURN 
117 OEBUGMSG: .ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ 
045 FERCM: .ASCII /SNSA s008/ 
124 ERCM: .ASCIZ 7/7 TSSR ERROR CODE REC'D = / 
056 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
123 TINERR: .ASCIZ /TEST: ...7 


L4 


EVEN 


3¢ 


; 
;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 


} INPUT: 

R1 CONTENTS OF TSSR AT ERROR 

; SIDE EFFECTS: 

; EXECUTES DROP UNIT TO CEASE TESTING 


BGNMSG SFIMSG 


SFIMSG:: 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ,CKOROP ;DROP UNIT, IF ALLOWED 
ENDMSG 

L10003: 


TRAP C$MSG 


3° 
;PRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 


3 
; INPUTS: 


3 R1 TSSR CONTENTS 
: R4 ADDRESS OF COMMAND PACKET 
3 
ge 
BGNMSG PKTSSR 
PKTSSR:: 
JSR PC,PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
MOV 04,RO0 3NO. OF WORDS IN PACKET 
eae PC ,PRIPKT ‘PRINT THE CONTENTS OF COMMAND PACKET 


L10004; 
TRAP C$mMSG 


3? 
. 3PRINT ROUTINE TO PRINT THE CONTENTS OF 


;TSSR AND A GET STATUS COMMANC PACKET. 


TSv3_- GL 
cxnsce °° 


011764 
011764 
011764 
011770 
011774 
012000 
012000 
012000 


012002 
012002 
012002 
012006 
012006 
012006 


012010 
012010 
012010 
012014 
012016 
012020 
012024 
012024 
012024 


AL_ AREA M 
OMPARE expo RECV ME 


004737 
012700 
004737 


104423 


004737 


104423 


004737 
010200 
010301 
004737 


104423 


ACRO 


005632' 
000002 
007270' 


005632’ 


005632’ 


014142' 


M4 


CeAds BOA rERE-O* 17:54 


Ri TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


BGNMSG PKTGETS 


PKTGETS:: 


L10005: 


JSR PC,PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
MOV #2,RO0 sNO. OF WORDS IN GET STATUS PACKET 
es PC ,PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 


TRAP C$MSG 


3¢ 
;PRINT TSSR ERRORS FOR INITIALIZATION TESTS 


Hy 
; INPUTS: 


SFFMSG: : 


L10006: 


3; 


R1 TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


BGNMSG SFFMSG 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 


TRAP C$MSG 


-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 


; 
s;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 


;BUFFER 


3 
3; INPUTS: 


L10007; 


FOR ERROR REPORTS 
R1 CONTENTS OF TSSR 
Re LOW ORDER MESSAGE BUFFER 


R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 


BGNMSG PKTMES 


JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
MOV R2,RO ;LOW ORDER ADDRESS 

MOV R3,R1 sHIGH ORDER ADDRESS 
ae PC,PRMESS ;PRINT THE MESSAGE BUFFER 


TRAP C$MSG 


SEQ 051 


TSV3_- GLOBAL AREAS 


PKTMES 


- PRINT TSSR AND MESSAGE BUFFE 


012026 
012026 
012026 
012032 
012036 
012042 
012042 
012042 


004737 
016501 
004737 


104423 


012700 
005737 
001402 
012700 
004737 


104423 
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010174' 
000002 
005632' 


900007 
002216' 


000010 
014452’ 


.SBTTL 
3+ 
sPRINT ROUTINE 


N4 


ADDSSR - PRINT TEST ADDRESS AND TSSR 
TO PRINT THE CONTENTS OF 


;TSSR AND A MEMORY TEST ADDRESS 


3 
; INPUTS: 
Hy 
; RS 
3 ERRHI 
3 ERRLO 
ge 
BGNMSG 
ADDSSR: : 
JSR 
MOV 
JSR 
ENDMSG 
L10010: 
TRAP 
. SBTTL 


3¢ 


3 
sPRINT ROUTINE 


FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
LOW ORDER MEMORY TEST ADDRESS 


ADDSSR 

PC ,PRITADD sPRINT MEMORY TEST ADDRESS 
TSSRC(RS),R1 sGET CURRENT TSSR 

PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
C$MSG 


MSGEXP - PRINT WRITE CHAR, EXPD-RECV MESSAGE BUFFERS 


TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 


; 
s IMPLICIT INPUTS: 


8 
; EXPMSG - EXPECTED MESSAGE BUFFER 
8 RECMSG - RECEIVED MESSAGE BUFFER 
8 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
BGNMSG MSGEXP 
MSGEXP: : 
MOV #7,RO0 sASSUME NO EXT FEATURES 
TST EXTFEA sEXT FEATURES SET? 
BEQ 5$ ;8R IF NO 
MOV #8. ,RO sEXT FEATURE BUFFER IS 8 WORDS 
5$: JSR PC ,PRMSGE xP ;PRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 
L10011 
TRAP C$MSG 
-SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 


3 


4 

sPRINT ROUTINE 
Hy 

; R1 


TO PRINT FIFO EXP/RECV DATA 
- BYTE COUNT 


; 
IMPLICIT INPUTS: 


. 
: EXPMSG 


- EXPECTED MECSAGE BUFFER (CONTAINS FIFO DATA ONLY 


SEQ 052 


BS 


3 - GLOBAL AREAS MACRO m111S O1-FEB-84 17:54 SEQ 055 
- PRINT FIFO EXP/RECV DATA 
i RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
g* 
012070 BGNMSG FIFEXP 
012070 FIFEXP: ; 
012070 PRINTX OF IFIMSG,Ri sPRINT BYTES TRANSFERRED 
012070 010146 MOV Ri, -(SP) 
Q12072 012746 012142° MOV OF IF 1MSG, -( SP) 
012076 012746 000002 MOV @2, -(SP) 
012102 010600 MOV 
012104 104415 TRAP CSPNTX 
012106 062706 000006 ADD 6, SP 
012112 PRINTX OF IF2MSG sPRINT HEADER MSG 
Ol2112 012746 012211' MOV OF IF OMSG, -( SP) 
012116 012746 000001 MOV #1, -(SP) 
O12122 010600 MOV SP ,RO 
012124 104415 TRAP CSPNTX 
012126 062706 000004 ADD 04 ,SP 
012132 010100 MOV R1,RO sGET BYTE COUNT 
012134 004737 015022° JSR PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 
012140 ENOMSG 
012140 L10012: 
012140 104425 TRAP C8MSG 
012142 045 116 045 FIFIMSG: -ASCIZ ‘sNSA NUMBER OF BYTES TRANSFERRED + 02° 
Ol2211 045 116 04S FIFQMSG: even -ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR:’ 
Vv 


-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
se 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
3 


: 
sIMPLICIT INPUTS: 


; 

; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS 
: 


012250 BGNMSG MSGSTAT 
012250 MSGSTAT:: 
012250 012701 012312' MOV @STATCOD,R1 sASCIIT ADORESS TABLE 
12254 012100 10$: MOV (R1)+,RO sOONE ALL MSG LINES? 
012256 001410 BEQ 20% sR IF YES 
012260 PRINTX RO sPRINT STATUS BIT NAMES 
012260 010046 MOV RO, -( SP) 
012262 012746 000001 MOV #1, -(SP) 
012266 010600 MOV SP ,RO 
012270 104415 TRAP CSPNTX 
012272 062706 000004 ADD @4,sP 
012276 000766 BR 108% 100 ANOTHER MSG LINE 
012300 012700 000012 208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
012304 004737 014452: JSR PC , PRMSGE xP sPRINT EXPD/RECV MESSAGE BUFFERS 
012310 ENOMSG 
012310 L10013; 


0123510 104423 TRAP CsmSG 


C5 


tSv8_- G@ FEB - ' 
mete aT OBR Ne ER rus HEABER Ad Me <OhcE "BR uPse az: 54 SEQ O54 
1619 012812 012830 012872" 012863" STATCOD: WORD wot tg2he3t.48.58.68.0 
e eis in rd 
1621 013372 04s 116 Soe 3S::A2eiS =: SNeA “ere “a gcRnele g. rEOT” cid> IFMK <9> IRDY<6> IRwO<2>’ 
1622 012468 045 116 045 3$:.ASCIZ ‘sNwA IRESv2ci4> TIDENT<1i> IER co tomes IF BY<1>° 
1623 012554 045 116 045 4$:.ASCIZ ‘sNwA IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<O>: 
1624 012645 045 116 045 5$:.ASCIZ ‘sSNA Tape Bus Signele in Word 09:’ 
1625 012707 045 116 045 6$:.ASCIZ ‘sNwA DATMES<7> ILwe6é> OUTRDY<S> INRDY<A>’ 
1626 “EVEN 
162? 
ise 
1630 SBTTL OOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
1631 3° 
1632 3 
1633 ;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
16 3 
1635 ;IMPLICIT INPUTS: 
16 3 
1637 ; EXPHSG - EXPECTED MESSAGE BUFFER 
1638 : RECMSG - RECEIVED MESSAGE BUFFER 
1639 : RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1640 ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS 
a 
1642 012764 BGNMSG MSGLOOP 
012764 MSGLOOP: : 
1643 012764 012701 013026: MOV ®LOOPCOD,.R1 sASCII ADDRESS TABLE 
1644 012770 012100 10$: MOV (R1i)+ RO }DONE ALL MSG LINES? 
1645 012772 001410 BEQ 208 BR IF YES 
1646 012774 PRINTX RO iPRINT STATUS BIT NAMES 
012774 010046 MOV RO, -(SP) 
012776 012746 000001 MOV 01. -(SP) 
015002 010600 MOV SP ;RO 
013004 104415 TRAP  — CSPNTX 
013006 062706 000004 ADD 04,SP 
1647 013012 000766 BR 108 :D0 ANOTHER MSG LINE 
1648 013014 012700 000012 208: MOV 10. .RO ;NUMBER OF WORDS IN A READ STATUS BUFFER 
1649 013020 004737 014452° JSR PC , PRMSGE XP ;PRINT EXPD/RECV MESSAGE BUFFERS 
1650 013024 ENOMSG 
013024 L10014: 
es C1304 108428 TRAP —- C$MSG 
1652 013026 013046' 013121' 013220° LOOPCOD: \WORD 18,28,38.48,58.68,78.0 
1653 013046 045 116 045 1%:.ASCIZ ‘sNSBA Tape Bus Loopback Signels in Word 08: 
1654 013121 045 116 045 2$:.ASCIZ ‘sNwA PARERR< 15> IRESV2<14> IRESV1<13>° 
1655 013220 045 116 045 3$:.ASCIZ ‘sSNA IMISP=>IEQT<12> IWRT=>IIDENT<11> IREV *>ICER <]O>: 
1656 013317 045 116 045 4$:.ASCIZ ‘sSNA IWFM =>IFMK<O9>  TEDIT*>IHER «08> IFAD «>ISPEED<07>: 
1657 013416 045 116 045 5$:.ASCIZ ‘sSNA ITADO*>IRDY<06>  ITADI=>IONL <O05>  IERASE=>ILDP «04>: 
1658 013515 045 116 045 6$:.ASCIZ ‘sNSA IREW =>IDBY<O3>  IRWU =>IRWO <O2>  IFEN =>IFBY <O1>: 
1659 013614 045 116 045 7$:.ASCIZ ‘sNSA IGO =>IFPT<0O>: 
1660 EVEN 
i662 .SBTTL MSGSU@ - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
t? 
1664 ; 
1665 ;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPDRECV 
; 


1667 Fy 


DS 


metsus BRT “DRG. sunStSPEH AR each aCFPER® 17:54 


1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 


000012 
014452' 


010060’ 
002222’ 
002224" 
007642" 


sIMPLICIT INPUTS: 


; 

; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLUADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
; 


MSGSU8 
MSGSUB: : 
MOV #10. ,RO SIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC , PRMSGE xP SPRINT EXPD/RECV MESSAGE BUFFERS 
L10015 


TRAP C$MSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
3° 


i 

sPRINT ROUTTNE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
3 

sIMPLICIT INPUTS: 


ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 
ERRLO - MEMORY ERROR LOW ORDER ADDRESS 


ExP - EXPECTED DATA 
RECV - RECEIVED DATA 
BGNMSG MEMADD 
MEMADD: : 
JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPD,R1 3GET EXPD DATA 
MOV RECV,R2 3GET RECEIVED DATA 
JSR PC, PRIXxOR sPRINT EXPD/RECV 
ENOMSG 


L10016: 
TRAP CSMSG 


-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
3° 


i 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
;WHEN THE RAM DATA DOES NOT MATCH. 


; INPUTS: 
; Ro POINTER TO COMMAND PACKET 
TIMPLICIT INPUTS; 
RAMDATA DATA AS READ FROM THE RAM 
RAMSiZ NUMBER OF BYTES IN PACKET 


IF RAMSIZ*O THEN DEFAULT TO 8. 


SEQ 055 


ES 


TSV3 - GLOBAL AREAS MACRO M1113 0O1-FEB-84 17:54 SEQ 056 
PRAMPKT - PRINT RAM AND PACKET DATA 

1719 s IMPLICIT OUTPUTS: 
1720 3 
1721 ; RAMSIZ SET T0 0 
1722 3- 
1723 
1724 013676 PRAMPKT; 
1725 013676 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1726 013702 012701 002232: MOV ORAMDATA,R1 s;DATA FROM THE RAM 
1727 013706 005002 CLR R2 s INIT BYTE NUMBER 
1728 013710 122124 S$: CMPB (R1)+,CR4O)> sCOMPARE EXPECTED, RECEIVED 
1729 013712 001005 BNE 7$% ;8R IF NO MATCH 
1730 013714 FORCERROR 7$,NOTSSR 
1731 013724 000436 8R 108 ; 980 
1732 013726 116105 177777 78: MOvB -10R1),R5 ;GET RECV RAM DATA 
1733 013732 116403 177777 MOVB -10R4),R3 3;GET EXPD PACKET DATA 
1734 013736 xOR R5,R3 1XOR EXPD/RECV 
1735 013746 042703 177400 BIC @177400,R3 3;LOW BYTE ONLY 
1736 013752 116137 177777 002224' MOVB -10R1),RECV ;GET RECEIVED RAM DATA 
1737 013760 116437 177777 002222: MOvB -1(R4),EXPD ;GET EXPECTED RAM DATA 
1738 013766 PRINTB @RAMASC,R2,RECV.EXPD,23 

013766 010346 MOV R3,-(SP) 

013770 013746 002222’ MOV EXPO, -( SP) 

013774 013746 002224' MOV RECV, -(SP) 

014000 010246 MOV R2, -( SP) 

014002 012746 014056’ MOV @RAMASC, -( SP) 

014006 012746 000005 MOV #5, -(SP) 

014012 010600 MOV SP RO 

014014 104414 TRAP CSPNTB 

014016 062706 000014 ADD @14,SP 
1739 014022 005202 10$: INC R2 ;UPDATE BYTE Coat 
1740 014024 005737 002272’ TST RAMSIZ sDEFAULT TO 8. 
1741 014030 001404 BEQ 158 :BR IF YES 
1742 014032 020237 002272' CMP R2,RAMSIZ ;DONE ALL BYTES? 
1743 014036 003724 BLE 58 ;8R IF NO 
1744 014040 000403 BR 253 3 
1745 014042 020227 000010 15%: CMP R2,08. ;DONE DEFAULT NUMBER OF BYTES? 
1746 014046 002720 208: BLT 53 ;8R IF NO 
1747 014050 005037 002272: 25%: CLR RAMSIZ ;SET DEFAULT RAMSIZ 
see 014054 000207 RTS PC ;RETURN 
Bey 014056 045 116 045 RAMASC: seers ‘SNSA BYTE: SD28A RAM: SO38A Packet: SO038A XOR: 603’ 

.EVEN 
1752 
ies -SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
3 te 

1755 3 
1756 sTHIS ROUTINE PRINTS THE CONTENTS OF 
1757 ;THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 
1758 ;TSV-OS. 
1759 3 
1760 3; INPUT: 
1761 Fy 
1762 RO LOW ORDER ADORESS OF MESSAGE BUFFER 


i 

3 R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 
1764 ; NOTE: Ri IS IGNORED IF KTENABLE FLAG IS CLEAR 

é 

‘ 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


TSv3 
PRMESS 


1780 


014142 
014142 
014146 
014150 
014154 
014156 
014160 
014162 
014164 
014166 
014166 
014170 
014172 
014176 
014202 
014204 
014206 
014212 
014212 
014216 
014222 
014224 
014226 
014232 
014234 
014236 
014240 
014242 
014246 
014250 
014250 
014252 
014254 
014260 
014264 
014266 
014270 
014274 
014276 
014302 
014304 
014306 
014314 
014316 


014320 
014365 
014423 


- GLOBAL AREAS 


012746 
.¢) 


MACRO M1113 01-FEB-84 17:54 
- PRINT CONTENTS OF MESSAGE BUFFER 


003124' 


014320’ 
000003 


017220' 


014423' 
000003 


108: 


208: 


508: 


PROASC: 
PR1IASC: 
PRASC: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


. SBTTL 
i¢ 


FS 


RO,RS 

K TENABLE 
10$ 

R1 

R1,R3 
RO 


R1 
= <s RS 


20 
PC, SETMAP 
RO 


RS 
@PRASC ,R4,CRS)> 


eager aaa 


sSAVE THE REGISTERS 

sSAVE LOW ORDER ADDRESS 

sADDRESS ABOVE 28K? 

sBR IF YES 

sSET HIGH ORDER ADDRESS TO 0 
sSAVE HIGH ORDER ADDRESS 

sSHIFT BIT1S TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE NEXT WORD 

sCOPY LOW ORDER ADDRESS 

sCOPY HIGH ORDER ADDRESS 

sBR IF NOT ABOVE 28 

sSETUP PAR ADDRESS IN RO 

sGET PAR FORMAT ADDRESS ABOVE 28K 


sPRINT THE CONTENTS OF MEMORY BUFFER 


sNUMBER OF THE NEXT 


sPRINT FIRST 7 WORDS 


20% 
OX2.EXTF, XST2(R3)sEXTENDED FEATUTES ON ? 


20% 
PC 


sPRINT EXTENDED STATUS WORD 
sRETURN 


‘SNSA Message Buffer Address + #01805’ 
‘SNSA Message euclen Eerkantes: 


‘ ssNSA 


WordsD1sA: 


PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


: 
sROUTINE TO PRINT EXPECTED ANC RECEIVED MESSAGE BUFFERS 


SEQ 057 


TSv3 - 
PRMSGE x 


1824 


OBAL AREAS 


- PRINT EXPD/RE CY 


014632 
014677 
014735 


002276’ 
002274' 
014632" 
000003 


000010 


014677’ 
000001 


014735’ 
000005 


000014 


045 
045 


Cv Messace eurrens” © 17'54 


RO 


EXPMSG 
RECMSG 


50$: RTS 


PRMSGO: .ASCIZ 
PRMSG1: .ASCIZ 
PRMSG2: .ASCIZ 


GS 


- NUMBER OF WORDS IN BUFFER 


IMPLICIT INPUTS: 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
sSAVE NUMBER OF WORDS 

sGET RECV LOW ADDRESS 

sCOPY LOW ADDRESS 

sGET RECV HIGH ADDRESS 

sSHIFT BITIS TO C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE CURRENT WORD 
3;GET EXPD BUFFER ADDRESS 
3GET RECV BUFFER ADDRESS 
3GET EXPO 

sGET RECV 

3XOR EXPO/RECV 

*CR2)+ RB 


sNUMBER OF THE NEXT 
sD0NE ALL YET? 


‘SNBA Message Buffer “Address = 801805" 
‘SNSA Mess Buffer Contents 


‘SNSA = =6OLWORD SSD2SA «EXPD: sO6wA RECV: S068A XOR: 


SEQ 058 


H5 


TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17:54 SEQ 059 


PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
tt -EVEN 
1842 
ot -SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
¥ 
1845 
1846 :ROUT INE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
ot ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
; 
pot ; RO - NUMBER OF BYTES IN BUFFER 
i 
veas s IMPLICIT INPUTS: 
2 
1853 ; EXPMSG - EXPECTED MESSAGE BUFFER 
aes i RECMSG - RECEIVED MESSAGE BUFFER 
hw 
1856 015022 PRBYTEXP: : 
1857 015022 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1858 015026 010005 MOV RO,RS sSAVE NUMBER OF BYTES 
1859 015030 005037 002310' CLR PRMNO sINIT ERROR COUNT 
1860 015034 CLR R4 sNUMBER OF THE CURRENT BYTE 
1861 015036 012701 002312’ MOV @EXPMSG ,R1 sGET EXPD BUFFER ADDRESS 
1862 015042 012702 002456’ MOV @RECMSS ,R2 sGET RECV BUFFER ADDRESS 
1863 015046 111100 208: MOVB (R1),RO 3;GET EXPO BYTE 
1864 015050 042700 177400 BIC @tC<377>,RO sCLEAR UPPER BYTE 
1865 015054 110037 015370’ MOvB RO ,PRBEXP ;SAVE FOR ERROR REPORT 
1866 015060 111203 MOVB CR2),R3 sGET RECV BYTE 
1867 015062 042703 177400 BIC @tC<377>, R3 sCLEAR UPPER BYTE 
1868 015066 110337 015372’ MOVB R3,PRBREC sFOR ERROR REPORT 
1869 015072 xOR RO.R3 3XOR EXPD/RECV 
1870 015102 122122 CMPB CR1)+,CR2)+ sEXPD = RECV? 
1871 015104 001431 BEQ 30% 3BR IF YES 
1872 015106 005237 002310’ INC PRENO sUPDATE ERROR COUNT 
1873 015112 023727 002310' 000010 CMP PRMNO, 08. sPRINTED 8? 
1874 015120 101023 BHI 30$ ;BR IF YES 
1875 015122 278: PRINTX @PRBMSG,R4, PRBEXP, PRBREC,R3 
015122 010346 MOV R3,-C(SP) 
015124 013746 015372' MOV PRBREC, -(SP) 
015130 013746 015370’ MOV PRBEXP, -( SP) 
015134 010446 MOV R4, -(SP) 
015136 012746 015236’ MOV @PRBMSG, -( SP) 
015142 012746 000005 MOV #5, -(SP) 
015146 010600 MOV SP ,RO 
015150 104415 TRAP CSPNTX 
015152 062706 000014 @14,SP 
1876 015156 FORCEXIT 50$ 3880 
1877 015166 000404 35% ; 880 
1878 015170 30$;: 
1879 015170 FORCERROR 27%,NOTSSR :880 
1880 015200 35%: 3880 
1881 015200 005204 INC R4 sNUMBER OF THE NEXT 
1882 015202 020405 CMP R4,R5 sOONE ALL YET? 
1883 015204 002001 BGE 508 3BR IF YES 
1884 015206 000717 BR 20% 300 ANOTHER 
1885 015210 50$: PRINTX @PRBTOT,PRMNO sPRINT TOTAL ERROR COUNT 
015210 013746 002310’ MOV PRMNO, -( SP) 
015214 012746 015323 MOV @PRBTOT, -( SP) 
015220 012746 000002 MOV @2,-(SP) 


TSV3 - GLOBAL AREAS MACRO M1113 Of -FE8-08 17:54 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

015224 010600 MOV 
015226 104415 TRAP 
015230 062706 000006 ADD 

eer 015234 000207 RTS 

1888 015236 045 116 045 PRBMSG: .ASCIZ 

1889 015323 045 116 045 PRBTOT: .ASCIZ 

1890 -EVEN 

1891 015370 000000 PRBEXP: .WORD 

pte | 015372 000000 PRBREC: .WORD 

1894 SBTTL 

1895 3° 

1896 3 

1897 sPRINT ROUTINE 

1898 3 

1899 ; INPUTS: 

1900 3 

1901 PF R1 

1902 3 R2 

1903 3 

1904 a 

1905 

1906 015374 BGNMSG 
015374 EXPREC:: 

1907 015374 004737 007642’ JSR 

1908 015400 ENOMSG 
015400 L10017: 
015400 104423 TRAP 

1909 

1910 

1911 

1912 

1913 .SBTTL 

1914 3+ 

1915 : 

1916 sPRINT ROUTINE 

1917 F 

1918 3 

1919 ; INPUTS: 

1920 3 

1921 ; R1 

1922 3 R2 

1923 ; 

1924 ss 

1925 

1926 015402 BGNMSG 
01540, EXPBREC: : 

1927 015402 004737 007512’ JSR 

1928 015406 ENDMSG 
015406 110020: 
015406 104423 TRAP 

1929 

1930 

1931 

1932 

1933 .SBTTL 


1D 


SP ,RO 

CSPNTX 

06,SP 

PC sRETURN 

‘NSA BYTE @8D28A EXPD: S038A RECV: 038A XOR: 
‘@NSA NUMBER OF BYTES IN ERROR = #02’ 

0 sEXPD 

t) ;RECV 

EXPREC - PRINT EXPD/RECV WORD DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 


PC ,PRIXOR sPRINT THE DATA 


C$MSG 


EXPSREC - PRINT EXPD/RECV BYTE DATA 


TO DISPLAY BYTE EXPD/RECV DATA 


RECEIVED DATA BYTE 
EXPECTED DATA BYTE 


EXPBREC 

PC ,PRIBXOR sPRINT THE DATA 
C$MSG 

RAMERR - PRINT RAM AND PACKET DATA 


SEQ 060 


TSV3_ - GLOBAL AREAS 


RAMERR 


015410 
015410 
015410 
015414 
015414 
015414 


015416 
015416 
015416 
015422 
015426 
015426 
015426 


004737 013676’ 


104423 


004737 010174’ 
004737 013676' 


104423 


MACRO M1113 01-FEB-84 17:54 
- PRINT RAM AND PACKET DATA 


3¢ 


J5 


‘ 
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


Hy 

: INPUTS: 

i 

: R4 


POINTER TO 


4 
sIMPLICIT INPUTS: 
; 


RAMDATA 
RAMSIZ 


F 
3 
3 
3 
3 
3 
3 RAMSIZ 
3 


BGNMSG 
RAMERR: : 

JSR 

ENOMSG 
L10021: 

TRAP 


/SBTTL 
- 
;PRINT ROUTINE 
SINPUTS: 

; Ra 
SIMPLICIT INPUT 


RAMDATA 
RAMSIZ 


ERRHI 
ERRLO 


IMPLICIT OUTPU 
RAMSIZ 


ee os G+ Ge os Ge Gs oe os oe oF 


DA 


COMMAND PACKET 


TA AS READ FROM THE RAM 


NUMBER OF BYTES IN PACKET 


IF 


IMPLICIT OUTPUTS: 


SET TO 0 


RAMERR 
PC ,PRAMPKT 


C$MSG 


RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


RAMSIZ*0 THEN DEFAULT TO 8. 


sPRINT RAM/PACKET DATA 


TO DISPLAY RAM/PACKET DATA 


POINTER TO 
S: 
DA 


COMMAND PACKET 


TA AS READ FROM THE RAM 


NUMBER OF BYTES IN PACKET 


IF 


RAMSIZ=0 THEN DEFAULT TO 8. 


HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 


TS: 

SET TO O 
RAMTADD 
PC,PRITADD 
PC, PRAMPKT 


C$MSG 


sPRINT TEST ADDRESS 
;PRINT RAM/PACKET DATA 


SEQ 061 


KS 


TSV3 _ - GLOBAL AREAS MACRO M1113 01-FEB-84 17:54 SEQ 062 
RAMTADD - PRINT TEST ADDRESS, RAM AND BACKET Data 


1985 
1986 .SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
1987 3+ 
1988 3 
1989 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
1990 : 
1991 ; INPUTS: 
1992 3 
1993 ; R1 RECEIVED DATA 
1994 ; Re EXPECTED DATA 
1995 3 R4 CONTROLLER RAM ADDRESS 
1996 g° 
1997 
1998 015430 BGNMSG RAMEXP 
015430 RAMEXP:; ; 
1999 015430 042701 177400 BIC @tC<377>,R1 :;SAVE EXPD RAM DATA BYTE 
2000 015434 042702 177400 BIC tC<377>,R2 ;SAVE EXPD RAM DATA BYTE 
2001 015440 004737 007766' JSR PC,PRIRAM ;PRINT THE RAM ADDRESS 
2002 015444 004737 007642’ JSR PC,PRIXOR ;PRINT THE DATA 
2003 015450 ENDMSG 
015450 L10023: 
a 015450 104423 TRAP C$MSG 
2005 .SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
2006 3+ 
2007 - 
2008 sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
2009 ;AND TIMER A,B HEADER MESSAGE 
2010 3 
2011 3; INPUTS: 
2012 t 
2013 : R1 RECEIVED DATA 
2014 3 R2 EXPECTED DATA 
2015 :- 
2016 
2017 015452 BGNMSG TIMEXP 
015452 TIMEXP: : 
2018 015452 PRINTX #TIMSGO ;PRINT HEADER 
015452 012746 015500’ MOV #TIMSGO, -(SP) 
015456 012746 000001 MOV #1,-CSP) 
015462 010600 MOV SP ,RO 
015464 104415 TRAP CS$PNTX 
015466 062706 000004 ADD 04,SP 
2019 015472 004737 007642’ JSR PC,PRIXOR ;PRINT THE DATA 
2020 015476 ENDOMSG 
015476 L10024: 
015476 104423 TRAP C$MSG 
5052 
aeee 015500 045 116 045 yf -ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3sNSA TIMER B STATUS IS IN BIT 2’ 
.EVEN 
2025 
2026 
ponds .SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
2029 Pa 


TSv3 
BADSSR 


GLOBAL AREA 
- PRINT [SSR ERRORS ON DA 


015600 
015600 
015600 
015602 
015606 
015606 
015610 
015614 
015620 
015622 
015624 
015630 
015632 
015636 
015636 
015636 
015640 


S 


010246 
042702 


010246 


MACRO M1 


116 


at 


LS 


13. O1-FEB-84 17:54 
A TRANSFERS 
sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
} 
; INPUTS: 
3 
3 R1 CONTENTS OF TSSR 
: R2 DATA WRITTEN (8 BITS) 
3 
5 
BGNMSG BADSSR 
BADSSR: : 
’ MOV R2, -CSP) ;SAVE DATA TRANSFERRED 
BIC #177400,Re2 sGET JUST ONE BYTE 
PRINTB er 5% R2 
MOV R2,-CSP 
MOV axFERASC. -(SP) 
MOV 2,-CSP 
MOV SP.RO 
TRAP CsPNTB 
ADD #6 ,SP 
MOV (SP)+, Re sRESTORE R2 
JSR PC, PRITSSR sDECODE TSSR CONTENTS 
ENOMSG 
L10025: 
TRAP C$MSG 
045 xXFERASC: -ASCIZ ‘sNSA Data Transferred = #03’ 


-SBTTL GLOBAL SUBROUTINES SECTION 


Po 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 

gee 


.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
3° 
H 
;ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
;BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
3 
3; INPUTS: 
H 
; RS ADDRESS OF FIRST REGISTER 
Hy 
;OUTPUTS: 
1 
; RO CONTENTS OF TSSR, IF ERROR 
‘ CARRY SET IF INIT WAS OKAY 
; CLEAR IF FATAL ERROR 
CALLING SEQUENCE: 
H 
5 


MOV @ADDRESS ,RS 


SEQ 063 


TSV3_ - GLOBAL AREA 
- SOFT INI 


SOF INIT 


2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 


015674 
015674 
015700 
015706 
015712 
015716 
015720 
015724 
015730 
015732 
015734 
015736 
015740 
015742 


015744 
015744 


015750 — 


015752 


016016 


012765 
004737 


000000 000002 
016150° 
000002 


176277 
002200 


100000 
174077 


000200 
000040 


177761 
000016 


3¢ 


TALIZE OF CONTROLLER ©°°8* 17:94 


. SBTTL 


M5 


PC, SOF INIT 
CONT INUE 


#0, TSSRCRS) 
PC ,WALTF 
TSSRCRS),RO 
RO,R4 


;REPORT FATAL ERROR 


; SAVE THE REGISTERS 
; ODO THE INIT 

; WAIT FOR SSR 

sGET THE TSSR REGISTER 
3TSSR CONTENTS 


@tC<HIADDR!ICii-,R4 


@SSR!NBA,R4 
R4,RO 
S$ 


10$ 
PC 


3R4 HAS EXPECTED CONTENTS 
sONLY EXPECTED BITS SET ? 
sBRANCH IF OKAY 

;CLEAR THE CARRY FOR ERROR 
3GO TO EXIT 

;SET THE CARRY BIT 

;RETURN TO CALLER 


CHKAMB - CHECK TSSR FOR AMBIGUITY 


3 
;THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
3FOR AMBIGUITY 


Hy 
3; INPUT: 


: 
;OUTPUT: 


5$: 


RO 


RO 
CARRY 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


RO,R4 
#SC,RO 


S$ 
@*C<NBALOFL !SSRIHIADDR> RO 


$ 
@tCTERCLS,R4 
R4,%16 
40$ 
45$ 


sSAVE THE GENERAL REGISTERS 
sCONTENTS OF TSSR 

sIS BIT 15 SET ? 

sBRANCH IF YES 

sANY OTHER BITS SET ? 
sMUST BE AN ERROR 

sRETURN WITH SUCCESS 

:IS READY BIT SET ? 

sBRANCH IF READY BIT IS SET. 
;IS FATAL ERROR BIT SET ? 
;ERROR IF NOT 

;CLEAR ALL BUT TERMINATION CODE 
;ALL THREE BITS MUST BE SET 
;ERROR IF NOT SET 

;OK IF ALL ARE SET 


SEQ 064 


NS 


TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 17:54 SEQ 065 


CHKAMB - CHECK TSSR FOR AMBIGUITY 
2136 016020 032700 000040 10$: BIT #BITS,RO :IS FATAL ERROR BIT SET ? 
2137 016024 001405 BEQ 45$ ;ERROR IF BIT IS SET WITH SSR 
2138 016026 032700 000006 BIT @BIT2!BIT1,RO  ;IS THIS A FUNCTION REJECT 
2139 016032 001002 BNE 45$ ;8R, IF TSSR IS OK 
2140 016034 000241 40$: CLC s;AMBIGUOUS CONTENTS 
2141 016036 000401 BR 50$ 
2142 016040 000261 45$: SEC s;SHOW SUCCESS - NO AMBIGUITY 
2143 016042 000207 50$: RTS PC ;RETURN TO CALLER | 
144 ud Sa oe ., : 
2145 .SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS-. ~~~ 
146 Fy 
2147 ; DEFAULT DISPLAY INTERRUPT HANDLERS. 
2148 ; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
2149 ; OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 
150 FY 
2151 
2152 ; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 
21 3 
2154 000200 IOKCKIN*BIT7 ; DON’T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
2135 000001 IOKSTP=BITO ; EXPECT “STOP” INTERRUPT. 
1 H 
2157 s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
2158 016044 000 INTMASK .BYTE 0 
2159 y INTERRUPT FLAG -- SAYS WE GOT ONE CIF POSITIVE) 
2160 016045 000 INTFLAG: .BYTE 0 
2162 ;SAVED INTERRUPT VECTOR: 
2163 016046 000000 INTVEC: .WORD 0 
2164 ;SAVE CPU PC 
2165 016050 000000 INTCPC: .WORD 
2167 ;SUBROUTINE TO ENABLE INTERRUPTS: 
2168 016052 010046 ENAINT: MOV RO, -(SP) ;SAVE RO 
2169 016054 013700 002200 MOV IVEC,RO ;GET POINTER TO VECTORS 
2170 016060 012720 016116’ MOV @INTR, (RO)> ;SET UP INTERRUPT VECTOR 
2171 016064 012720 000340 MOV #PRIO7,(RO)+ 
2172 016070 012600 MOV (SP )+,RO sRESTORE RO 
2173 016072 011646 MOV (SP), -CSP) 
2174 016074 012766 000000 000002 MOV #0,2(SP) ;SET CPU TO LEVEL 0 
2175 016102 000002 RTI 
2177 ;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
2178 016104 011646 DSBINT: MOV (SP), -C(SP) 
2179 016106 012766 000340 000002 MOV #PRIO7,2(S°) 
2180 016114 000002 RTI 
sise .SBTTL INTR - INTERRUPT HANDLERS 
2184 016116 BGNSRV INTR ;DEFINE INTERRUPT ENTRY 
016116 INTR:: 
2185 016116 012737 000001 002214’ MOV #1, INTRECV ;SET FLAG TO SHOW INTERRUPT RECEIVED 
2186 016124 105037 016045’ CLRB INTFLAG ;CLEAR FLAG TO SAY WE GOT INTERRUPT 
2187 016130 132737 000001 016044: BITB #IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
2188 016136 001003 BNE 1$ ;8R IF YES 
2189 016140 152737 000001 016045: BISB #IOKSTP, INTFLAG ;NO, SET THE ERROR FLAG. 


2191 sSAVE REGISTERS, MSG BUFFER, ETC. 


- GLOBAL 


- INTE 


016146 
016146 
016146 
016146 


B6é 


AREAS MACRO M1113 O1-FEB-84 17:54 SE 
RRUPT HANDLERS __ 
1%: 
ENDS?V 
10026: 
000002 RTI 
.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
’ 
3 SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
i 
: INPUTS: 
3 
FY RS ADDRESS OF FIRST DEVICE REGISTER 
: 
sOUTPUTS: 
3 
: RO CONTENTS OF LAST TSSR READ 
3 CARRY SET - READY BIT SET 
Fy CLR - TIMEOUT WAITING FOR READY 
o 
000401 WAITF:: BR 18 sNOP WHEN SUPER FIXED 
BREAK 1 DO A SUPVSR BREAK FIRST. 
104422 TRAP CsBRK 
012746 011000 18: MOV #11000, -( SP) 325-APRIL-83 REV B - 1100 MSEC TIMER 
016500 000002 2s: MOV TSSRCRS),RO sREAD THE TSSR REGISTER 
105700 TsT8 RO sTEST FOR READY BIT SET 
100420 BMI 38 : EXIT ON STOP FLAG. 
DELAY 1 s WAIT 100 USEC 
012727 000001 MOV @1,(0PC)> 
000000 . WORD 0 
013727 002116’ MOV LSOLY,(PC)-> 
000000 . WORD 0 
005367 177772 DEC -6(PC) 
001375 BNE .-4 
005367 177756 DEC -22(PC) 
001367 BNE .-20 
005316 DEC (SP) sREOUCE DELAY COUNT 
001356 BNE es sRETRY UNTIL TIMER EXPIRES 
000241 cic s C = O, CONTROLLER STILL RUNNING... 
000401 Be 4% 3...OR HUNG-UP AFTER 300 MSEC. 
000261 3%: SEC : C = 1, CONTROLLER IS STOPPED. 
005326 4% DEC (SP )- sRESTORE STACK WITHOUT CHANGING CARRY BIT 
000207 RTS PC 
-SBTTL CHKTSSR - CHECK TSSR FOR READY 
| ad 
a 
s THIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR, 
; 
3; INPUT: 
7 
3 RS ADDRESS OF CSR REGISTERS 
; 
sOUTPUT; 


Tsv3 - G 
iss 


ORE Bap con BERR IIS 01 FEB 84 17:54 


RO CONTENTS OF TSSR 
CARRY SET - OKAY 
CLR - NOT READY AMBIGUOUS, OR SC SET 


016276 
016304 
016312 
016314 
016316 


016320 
016322 
016524 
016330 


016332 
016334 
016340 
016342 
016342 
016346 
016350 
016352 
016354 
016356 


012737 


016150° 
015744: 
100000 

074000 


016332' 000004 
000200 000006 


016342' 


CHKTSSR: 
JSR PC ,WALTF sWAIT FOR READY 
ecc $ s;BRANCH IF TIME OUT 
JSR PC, CHKAMB sTSSP AMBIGOUS? 
ecc 108 38R IF YES 
BIT esc ,RO sSPECIAL CONDITION SEi ? 
BEG 158 :6R IF NO 
BIT @<SCE!BIE!RMRINXM> RO sANY ERROR BITS SET? 
BEG 158 :6R IF NO 
108: cLe 1SET FAILURE 
BR 20% 3 
158: SEC :SET SUCCESS 
208: RTS PC sRETURN TO CALLER 
.SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 
s¢ 
; ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (RO). 
3; ON RETURN, IF "C“ = 1, (RL) = NEXM ADDRESS. 
3 “C” © O, ALL ADDRESSES OK. 
Hy 
;CALL: MOV ADR1,.R1 
3 MOV ADR2,R2 
3 JSR PC,NXM 
; RE TURN sTEST “C” AND PROCEED. 
3 
XNXM: MOV @2% ,804 s SET BUSERR VECTOR. 
MOV OPRI04 , 806 
CLR R3 FLAG. 
CLC ;CLEAR THE CARRY FOR NO NXM FOUND 
18: TsT (R1) sTEST THE ADDRESS(ES). 
3IF ANY TRAP, CONTINUE AT 23. 
CMP R1,R2 sOTHERWISE, CONTINUE HERE. 
BEQ 33 38R IF FINISHED (NO NEXM’S). 
ADD @2,R1 3SET NEAT ADORESS... 
BR 1s 3...ANOD CONTINUE, 
2s: COM R3 sGOT ONE, SET FLAG... 
MCV @38,(SP) 
RTI 3...AND DISMISS INTERRUPT... 
3%: CLRVEC 04 3...AND GIVE BACK THE VECTOR. 
MOV 4,R0 
TRAP CsCvec 
TST R3 ;0ID WE CATCH ONE ? 
BEQ 4 sNO, “C” = O, SKIP NEXT 
SEC 2: YES, -* s CR1) s NE XM ADOR. 
RTS Pc 
-SBTTL TSTLOOP - CHECK ITERATION COUNT 


SEQ 067 


D6 


TENS pe ee ere eee aTron SOUT M1113 O1-FEB-84 17:54 


016412 
016412 
016414 
016420 
016424 
016430 
016434 
016440 
016442 
016446 
016450 
016452 


005737 
001006 


002160' 
002174° 
002206 ' 


160000 003166’ 


SUBROUTINE TO EXECUTE TEST ITERATIONS. 
EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET @Y “BEGIN. TEST” MACRO. 


CALL: LOOPTO ARG 


—der of of oe oe eo oF 
> 


STLOOP:: 
TsT NOITS ; ITERATIONS INHIBITED? 
BNE 18% : YES. 
TsT ave : NO. 
BMI 1$ 3LGOPS DISALLOWED IN QUICK PASS. 
on — s BUMP LOOP COUNTER. 
tJ 
18: ae - sLOOP DISALLOWED, OR DONE. 
2s: SEC :LOOP ENABLED. 
38: RTS PC 


-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG 
INCREMENT "“TESTK” TO INDICATE THE NUMBER OF TESTS 

IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


RO POINTER TO TEST IO ASCIZ STRING 

OUTPUT: 

RS ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 


INTERRUPT LEVEL - RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


TSTSETUP: 

Vv RO, -(SP) sSAVE THE TEST ID MESSAGE 
CLR SIFLAG + CLEAR "SOFT INIT” FLAG 
CLR ERRK + CLEAR LOCAL ERROR COUNTER. 
CLR EXTA 3 CLEAR ERROR EXTENSION FLAG. 
CLRB INTMASK + CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN,RO 3; GET THE UNIT NUMBER, 
ASL RO H . AND MAKE IT A WORD OFFSET. 
TST NODE Vv ; DIO STARTUP FIND THE DEVICE? 
BEQ 4% BR IF YES 
BPL 3% BR IF NOT IDLE 


BIS #160000, ERTABL(RO) + FLAG ERROR IN THE ERROR TABLE 


SEQ 068 


TSV3 - GLOBAL AREAS 


2350 


016460 
016460 
016462 
016464 
016466 
016470 
016472 
016500 
016500 
016502 
016504 
016506 
016510 
016516 
016516 
016522 
016524 
016524 
016526 


016530 
016530 
016532 
016536 
C6540 


000000 
012737 


013700 
104451 


013746 
012746 
012746 
010600 
104417 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


160001 003166’ 


177777 003102' 
002172" 


001000 


123 045 


020000 


016660’ 
916662’ 
000002 


38: 


2s: 


4$: 


1$: 


5%: 


TNAM: -ASCIZ 


. SBTTL 


E6 


1,NXR,NXRERR s NO DEVICE HERE -- PRINT IT 
CSERDOF 


1 
NXR 
NXRERR 


es 
te | appa aye 


2.NOINI 
CSEROF 


+ FLAG ERROR IN THE ERROR TABLE 
; DEVICE NOT IDLE 


0) 
@-1,0UFLG + DROP THE UNIT 


+ ABORT THE PASS 


s+ GET THE OPERATOR FLAGS. 


; PRINT THE TEST NUMBERS? 
; BR IF NO 
;GET THE ID MESSAGE 
s;DISPLAY THE TEST ID 


; BUMP TEST COUNTER. 
sPRIORITY THAT OF DEVICE 


3FIX UP THE STACK 


> eect : ADDRESS OF TSV REGISTERS ON UNIBUS 
‘SSSTSA Test’ 


TSTEND 


- PRINT ERRORS RECEIVED 


AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS “ISABLED (FLA: IER). 


TRAP 


STEND: RFLAGS RO 


CS$RFLA 
RO, @IER 
1$ 


+ BR IF “IER” NOT SET. 


@ESUM, ERRK 3 PRINT ERROR COUNT. 


SEQ 069 


TSv3 
TSTENO 


- PRINT 


016701 


016746 


017102 


017104 
017106 


- GLOBAL AREAS 


062706 
000207 


000000 


045 
105 


001013 
012737 


104455 
000004 
016701' 
000000 
013700 
104451 
104444 


012600 
000207 


010046 


MACRO M1113 01-FEB-84 17:54 
ERRORS RECEIVED 


000006 


101 
122 


040 
lee 


016660' 
002172" 
003166' 
007777 


177777 003102' 


002172’ 


F6 


SEQ 070 


3s LOCAL ERROR COUNT. 
ERROR LIMIT REACHED -- DROPPING UNIT/ 


- INCREMENT LOCAL ERROR COUNT 


3° 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


ADD #6,SP 
18: RTS PC 
ERRK: 0 
ESUM:; -ASCIZ /s5A SOSA ERRORS/ 
EMAXDU: .ASCIZ 
-SBTTL INCERK 
$ - 
INCERK: INC ERRK : 
MOV UNITN,RO 3 
ASi. RO ’ 
ADD ERTABL ,RO 3 
INC CRO) ’ 
BIT 07777,C(RO) 3 
BNE 1$ F 
DEC CRO) 3 
1$: MOV (SP )+,RO ; 
RTS PC 3 
CKEMAX: MOV RO, -(SP) 3 
MOV UNITN,RO F 
ASL RO ; 
MOV ERTABL(RO),RO 3 
BIC 170000 ,RO : 
CMP RO,GERRMAX ; 
BHIS 1% : 
CMP ERRK ,LERRMAX ; 
BLO 2s 3 
1$: RFLAGS RO 3 
TRAP CSRFLA 
BIT @IDU,RO 3 
BNE es 3 
MOV -1,0UFLG 3 
ERROF 4,EMAXxDU 
TRAP CSERDF 
-WORDB 4 
. WORD EMAXDU 
. WORD .¢) 
bOoDU UNITN 
MOV UNITN,RO 
TRAP Cs000uU 
DOCLN 
TRAP CsOCLN 
2s: MOV (SP )+,RO : 
RTS PC 3 
SBTTL CKDROP 
3 > 
3; CHECK IF UNIT SHOULD BE DROPPED 
3 - 
CKDROP: MOV RO, -( SP) 
FORCERROR 1$,NO’SSR 


ion LOCAL ERROR COUNT 
GET UNIT NUMBER, 
.. AND MAKE IT A WORD OFFSET 
RO GETS ADDRESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
DID WE OVERFLOW THE FIELD? 
BR IF NO. 
YES -- BACK IT WP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 


SAVE RO 

GET UNIT NUMBER 

... ANDO MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
R IF NO 


GET OPERATOR FLAGS 
IS DROPPING INHIBITED? 


BR IF YES. 
NO -- DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 


- CHECK IF UNIT SHOULD BE DROPPED 


GroRoe BRE CK Ee unr o Be! 


2429 017116 
017116 


2451 017160 
2452 017164 
2453 017166 
2454 017174 


2461 017176 
2462 017202 
2463 017204 
2464 017206 
2465 017210 
2466 017216 


012737 


013700 
104451 


104444 
012600 
000207 


004737 
000207 


005737 
001403 
012737 
000207 


005737 
001405 
000240 
000240 
012737 
000207 


000040 


177777 003102’ 


002172" 


015674' 


003122’ 
000001 177572 


003122" 


000000 177572 


G6 


-pee-e 17:54 
RFLAGS RO 
TRAP CSRFLA 
BIT @I0U,RO 


DdObU UNITN 

MOV UNITN,RO 

TRAP cs 

DOCLN sABORT THE PASS 


1%: MOV me 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; 
; SUBROUTINE - DETERMINE CONFIGURATION OF TSUOS SYSTEM. 


3 
CONFIG: 
JSR a ae 


RTS 
.SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
3 
; SUBROUTINE - ENABLE MEM MGT. 
3 
KTON: TST KTFLG 3 GOT KT? 
BEQ 1$ 3; NO. 
MOV #1,SRO0 s YES. ENABLE KT11. 
1%: RTS PC 


; 
; SUBROUTINE - DISABLE MEM MGT. 


3 
KTOFF;: TST KTFLG 3; GOT KT11? 
BEQ 1$ 3; NO. 
NOP 
NOP 
MOV #0, SRO ; DISABLE KT. 
1$: RTS PC 


-SBTTL SETMAP - SETUP PAR6 MAPPING 
3° 
3 
sTHIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 


sAN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
sIS RETURNED BIASED TO PARE. 


; 

3; INPUTS: 

© 

; RO HIGH ORDER ADORESS BITS 
3 R1 LOW ORDER ADDRESS BITS 


i 
sOUTPUTS: 


SEQ O71 


TSV 
T 


3 - GLOBAL 


SE TMAP 


- SETUP 


017220 
017220 
017224 
017230 
017232 


017264 
017270 
017274 
017276 
017302 
017306 
017312 
017314 


2504 017316 


017320 
017322 


017324 


S25 017324 


017370 


003122’ 


017176" 


003114’ 
003116" 


003122’ 
017160’ 
003142’ 


108: 


a MACRO M1113 O1-FEB-84 17:54 
PARE MAPPING : 


H6 


OFFSET INTO BLOCK WITM PAR6 BIAS (I.E. THE ADDRESS) 


SET IF SUCCESS 


CLR IF ERROR 


R1,KTFLG 
S 


sSAVE R1-R4 UNTIL NEXT RETURN 


sSYSTEM HAVE ABOVE 28K? 
;BR IF NO 
sSAVE LOW ORDER BITS 


SEQ 072 


sCONVERT WORD ADORESS TO 32W BLOCKS 


sMAKE IT DOUBLE PRECISION 
sALINE FOR LOWER 4K BOUNDARY 


sHIGHER THAN EXISTING MEMORY? 


3;6R IF YES 

;SETUP MAPPING REGISTER PAR6 
sSETUP DISPLACEMENT IN PAGE 
3;ADD IN PARG6 BIAS 

sRETURN IN RO 

3SET SUCCESS 


F 
;SET FAILURE 
sRETURN 


-SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 


> 


INPUTS: 


RO = BACKGROUND PATTERN 
FREE 
KTFLG 


OUTPUTS: 


* FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
* SET TO HIGHEST MEMORY LOCATION IF >» 28K. 


sSAVE R1-RS UNTIL NEXT RETURN 
sOISABLE KT. 

sCOPY TEST PATTERN 

sGET FIRST FREE LOCATION | 
sSIZE OF FREE SPACE BELOW 28K. 
sSTORE A BACKGROUND WORD 

sOONE ALL MEMORY IN FREE SPACE? 


; NO. GET OUT. 
s YES. ENABLE KT. 
sHIGH ORDER ADDRESS START 


sGET >»28K START ADORESS (IN 32W BLOCKS) 


16 


TSV3 - GLOBAL AREAS MACRO M1115 O1-FEB-84 17:54 SEQ 073 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
2539 cLc s;CLEAR C BIT 
2540 ROL R1 sCONVERT BLOCKS TO WORDS 
eset _o RO sMAKE IT DOUBLE PRECISION 
2543 017440 004737 017220' JSR PC, SETMAP sSETUP PAR6 MAPPING REGISTER 
2544 017444 010320 30%: MOV R3,CRO)> sSTORE TEST PATTERN IN >28K ADDRESS 
2545 017446 020027 160000 CMP RO, #160000 sEND OF PAR6 MAPPING AREA? 
2546 017452 103774 BLO 308 :38R IF NO 
2547 017454 162700 020000 SUB #20000 ,RO sBACKUP INTO PAR6 MAPPING BEGIN 
2548 017460 062737 000200 172354 ADD @200,80KIPAR6 ;POINT TO NEXT 4K BLOCK >28K. 
2549 017466 013705 003122’ MOV KTFLG,RS ;GET VALUE FROM MEMORY SIZER 
2550 017472 042705 170000 BIC #170000 ,R5 sONLY 18 BITS PASS 
2551 017476 023705 172354 CMP BOKIPARG RS sEND OF MEMORY? 
2552 017502 001427 BEQ 508 ;8R IF YES 
2553 017504 005737 003134’ TST T23A sPROCESSOR TYPE A 
2554 017510 001407 BEQ 35% s3NO KEEP GOING 
2555 017512 013704 177572 MOV SRO,R4 sGET SRO CONTENTS 
2556 017516 042704 177761 BIC 0177761,R4 ;CLEAR ALL BUT PAGE NUMBER 
2557 017522 022704 000016 CMP #16,R4 3SEE IF PAGE 7 
2558 017526 001415 BEQ 508 sEXIT IF THERE 
2559 017530 005737 003136’ 35%: TST T238 sPROCESSOR TYPE B 
2560 017534 001410 BEQ 45$ 3NO KEEP GOING 
2561 017536 023727 172354 007600 CMP @OKIPAR6,076900 ;REACHED 18 BITS? 
2562 017544 103001 BHIS 403 sYES 
2563 017546 000403 BR 453 3NQ KEEP GOING 
2564 017550 012737 000020 172516 40%: MOV @20,SR3 3SET MMU RELOCATION 
2565 017556 090137 017444' 4S$: JMP 308 KEEP GOING ON ETC. 
2566 017562 004737 017176' 50$: JSR PC .KTOFF ; DISABLE KT. 
oe? 017566 000207 553: RTS PC 
Haq .SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
;* 
earn ; COMPARE MEMORY WITH A BACKGROUND PATTERN 
+ 
2573 ; INPUTS: 
2574 3 
2575 3 RO = BACKGROUND PATTERN 
2576 3 FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
aot? ; KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
7 
2579 3; OUTPUTS: 
2580 3 
2581 ; CARRY ~- SET IF NO ERROR 
2582 ; CARRY ~- CLR IF ERROR 
2583 3 
2584 ; IMPLICIT OUTPUTS: 
2585 ; 
2586 ; ERRHI - ERROR HIGH ADDRESS 
2587 ; ERRLO - ERROR LOW ADDRESS 
2588 ; EXPO - EXPECTED DATA 
2589 ; RECV - RECEIVED DATA 
2590 a 
2591 017570 CMPMEM 
2592 017570 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
2593 017574 010003 MOV RO,R3 ;COPY TEST PATTERN 
2594 017576 004737 017176’ JSR PC ,KTOFF ;DISABLE KT. 


2595 017602 013701 003114’ MOV FREE ,R1 sGET FIRST FREE LOCATION 


;SAVE R1 THROUGH RS ON THE STACK 


-SBTTL REGSAV 


J6 


FRESIZ,R2 
R3,(R1) 


R3, oe 


e2, or 
RO 


Sek IPARG, »KTFLG 
PC ,KTOFF 


60$ 
PC ,KTOFF 


PC 


TSV3 - GLOBAL AREAS MACRO M1113 01- atts 84 17:54 

CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
2596 017606 013702 003116’ MOV 
2597 017612 020311 108: CMP 
2598 017614 001411 BEQ 
2599 017616 010137 002230’ MOV 
2600 017622 37 002226' CLR 
2601 017626 010337 002222’ MOV 
2602 017632 011137 002224' MOV 
2603 017636 74 BR 
2604 017640 005721 15$; TST 
2605 017642 005302 DEC 
2606 017644 3 BGT 
2607 017646 005737 003122’ TsT 
2608 017652 001472 BEQ 
2609 017654 004737 017160’ JSR 
2610 017€60 00 CLR 
2611 017662 013701 003142’ MOV 
2612 REPT 
2613 ROL 
2614 ROL 
2615 .ENOR 
2616 017716 042701 000177 BIC 
2617 017722 010046 MOV 
2618 017724 010146 MOV 
2619 017726 004737 017220' JSR 
2620 017732 010004 MOV 
2621 017734 012601 MOV 
2622 017736 012600 MOV 
2623 017740 020314 308: CMP 
2624 017742 001411 BEQ 
2625 017744 010037 002226’ MOV 
2626 017750 010137 002230’ MOV 
2627 017754 010337 002222' MOV 
2628 017760 011437 002224’ MOV 
2629 017764 000421 BR 
2630 017766 062701 000002 323: ADD 
2631 017772 005500 AOC 
2632 017774 062704 000002 ADD 
2633 020000 020427 160000 CMP 
2634 020004 103755 BLO 
2635 020006 162704 020000 SUB 
2636 020012 062737 000200 172354 ADD 
2637 020020 023737 172354 003122' CMP 
2638 020026 101744 BLOS 
2639 020030 004737 017176’ 50$: JSR 
2640 020034 000241 CLC 
2641 020036 000403 BR 
2642 020040 004737 017176' 555%: JSR 
2643 020044 000261 SEC 
2644 020046 000207 60$: RTS 
2645 
2646 
2647 i 
2648 3 
2649 sROUTINE TO 
2650 
2651 ; 
2652 sCALLING SEQUENCE; 


sSIZE OF FREE SPACE BELOW 28K. 
sFREE SPACE LOCATION EQUAL TO EXPD? 
3;6R IF YES 

sSAVE ADDRESS IN ERROR 

sNO HIGH ADDRESS 

sSAVE EXPD FOR ERROR REPORT 

sSAVE RECV FOR ERROR REPORT 


3 

sPOINT TO NEXT ADDRESS 

sDONE ALL MEMORY IN FREE SPACE? 

;68R IF NO 

: GOT KT? 

: NO. GET OUT. 

3; YES. ENABLE KT. 

sHIGH ORDER ADDRESS START 

;GET >28K START ADDRESS (CIN 32W BLOCKS) 


sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 

s;SAVE HIGH ORDER 

;SAVE LOW ORDER 

s;SETUP PAR6 MAPPING REGISTER 

sCOPY ADDRESS BIASED TO PARG 

sRESTORE LOW ORDER IN NON PAR6 FORMAT 
sRESTORE HIGH ORDER IN NON PAR6 FORMAT 
sABOVE 28K LOCATION EQUAL EXPD? 

36R IF YES 

;SAVE HIGH ORDER IN ERROR 

sSAVE LOW ORDER IN ERROR 

sSAVE EXPD FOR ERROR REPORT 

sSAVE RECV FOR ERROR REPORT 


; 

sUPDATE NON PAR6 ADDRESS 

sMAKE IT DOUBLE PRECISION ADD 
sUPDATE PAR FORMAT ADDRESS 

sEND OF PAR6 MAPPING AREA? 

38R IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sENO OF MEMORY? 

:BR IF NO 

3; TURN OFF MEMORY MAPPING 
3SET FAL_URE 


‘ 
sTURN OFF MEMORY MAPPING 
sSET SUCCESS 


- SAVE R1-RS ON STACK 


SEQ 074 


TSV3_ - GLOBAL 


REGSAV 


AREPS 
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- SAVE R1-RS ON STACK 


020124 


104443 
000406 
020140' 


JSR 


IK6 


RS ,REGSAV 


;THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 


;THE CALLING ROUTINE. AT THE 


END OF THE CALLING ROUTINE, 


;THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


sREGISTERS. 


3 
sTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 


REGSAV: 


000012 MOV 


. SBTTL 
;¢ 


GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


; 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


OCTAL NUMBER FROM THE OPERATOR 


PC,GETPAT 


;SAVE THE GENERAL REGISTERS 
pile + aiaataat taille 


Hy 

3; INPUTS: 

i 

3 NONE . 

Hy 

;OUTPUTS: 

Hy 

3 RO 

; 

sCALLING SEQUENCE: 

H 

3 JSR 

; 

os 

GETPAT:: 
SAVREG 

1$: GMANID 
TRAP 
BR 
. WORD 
. WORD 
. WORD 
.WORD 
. WORD 


T$LOLIM 


SEQ 075 


TSV3 - GLOBAL 


GETPAT 


2741 


020140 
020142 


020246 
020246 


AREAS 


000377 


103367 
013700 
000207 


105 


000042 
020357’ 
177777 


000000 
177777 
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- GET 8 BIT PATTERN FROM OPERATOR 


020140' 


116 


020352’ 
000002 


. WORD 


L6 


TSHILIM 
10000$; 
lea 1$ sRETRY IF ERROR 
MOV PATDAT,RO sDATA PATTERN FROM OPERATOR 
RTS PC sRETURN TO CALLER 


3° 
sLOCAL DATA AREA 


PATDAT: .WORD 
DATASC: .ASCIZ 
-EVEN 
. SBTTL 


3? 


.¢) ; TEMPORARY STORAGE FOR DATA 
‘ENTER DATA PATTERN’ 


GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


a 
sROUTINE TO ISSUE A MENU AND GET 
;THE OPERATOR'S RESPONSE. 


: 
s INPUTS: 
a 
3 RO ADDRESS OF ASCIZ STRING OF MENU 
3 R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
sOUTPUTS 
3 RO NUMBER OF THE OPERATOR'S SELECTION 
3 
3° 
GETSEL 
SAVREG ;SAVE GENERAL REGISTERS 
MOV RO,R2 sSAVE THE MENU ADDRESS 
1$ MOV R2,R3 sSTART OF MENU STRING 
es TST CR3) sEND OF ASCII ? 
BEQ 3$ sBRANCH IF ALL LINES DISPLAYED 
PRINTF #SELASC,C(R3)>+ ;DISPLAY THE MENU 
Mov CR3)+,-CSP) 
MOV @SELASC, -( SP) 
MOV @2,-C(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6,SP 
BR 2s 
3$: GMANID MENASC,MENRES,D,-1,0,-1,NO 
TRAP C$GMAN 
BR 10001$ 
.» WORD MENRES 
.» WORD TSCODE 
. WORD MENASC 
. WORD -1 
. WORD T$LOLIM 
.» WORD TSHILIM 
10001$: 
BNCOMPLE TE 1$ sRETRY IF ERROR 


SEQ 076 


feys - GLOBAL AREAS 
TSEL - ISSUE 


020352 
020357 


020406 


103352 
013700 
020001 
101411 


012746 
012746 


104450 
103411 
012746 


020406' 


020304' 
000001 


116 
156 


020444' 


116 


S$: 
045 MENERR: 
045 SELASC: 
164 MENASC: 


MENRES ; 


3¢ 


MAETO CREAR Ton RESBBARE 17° 


MENU AND 


. SBTTL 


M6 


SEQ 077 
1$ 
MENRES ,RO ;GET THE OPERATOR'S REPLY 
RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
S$ sBRANCH IF OK 
@MENERR sDISPLAY ERROR MESSAGE 
@MENERR, -( SP) 
#1,-CSP) 
SP ,RO 
CSPNTF 
@4,SP 
1$ sRETRY 
PC ;RETURN TO CALLER 
coma aa Menu Selection Too Large *##«’' 
‘Enter Menu Selection: ‘ 
-WORD O 


CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


; 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


3 
; INPUT: 
3 
3 


3 
;OUTPUT: 
3 
3 
3 


NONE . 


CARRY 


; 
;SIDE EFFECTS: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 


1$: 
045 NOMAN: 


i?) MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS OK 


ALLOWED. 
SAVREG ;SAVE THE REGISTERS 
MANUAL ;SEE IF MANUAL INTERVENTION OK 
TRAP C$MANI 
ee | 1$ ;BRANCH IF ALLOWED 
1$ 
PRINTF @NOMAN :PRINT THE WARNING MESSAGE 
MOV @NOMAN, -( SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD 04 ,SP 
CLC ;CLEAR CARRY FOR ERROR 
RTS PC ;RETURN 


-ASCIZ 
.even 


‘sNSA #6 Manual Intervention not Allowed - Test Aborted «+«' 


TSV3 - GLOBAL sg 
CHK CHECK M. 


MAN 


020754 
020760 


020762 


NUAL 


104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 


012716 
000002 


012716 


MACRO M 
INTERVEN 


003114’ 
000002 
003116' 
000004 


002012’ 
000007 


003114’ 
003116' 
000002 

003120' 


003122’ 
003124' 
002120' 
002120’ 
000004 
020754’ 
177572 
002120’ 
000177 
000004 
172340 
077406 


000200 
002000 
177600 


020770' 


021016' 
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TON LE 


-SBTTL ENVIRN 


N6 


- SETUP FREE DIAGNOSTIC SPACE 


; 
: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
ENVIRN: —— RO 


003114’ 
003116’ 


003116' 10%: 


40$: 


3¢ 


-SBTTL KTINIT 


C$MEM 

RO, FREE 

02, FREE 
CRO), FRESIZ 
04 ,FRESIZ 


L$UNIT,R2 
#7 ,FRESIZ 
R2 


10$ 
FREE ,RO 
FRESIZ,RO 


#2,RO 
RO,FREEHI 
PC 


3 
sROUTINE TO INIT KT-11 


KTINIT: 


003122’ 
003122' 


177740 18: 


2s: 


3$; 


KTFLG 
K TENABLE 
L$HIME , #1577 


9$ 
Sen eer? 


$ 
QOERRVEC ,RO 
92% ,AVERRVEC 
@¢SRO 


L$HIME ,KTFLG 
#177,KTFLG 

RO, Q@ERRVEC 
RO 

@KIPARO,R1 
#77406, -40(R1) 
RO,CR1)+ 
#200,RO 

RO, #2000 


1$ 
#177600, -C(R1) 
9$ 


#6$ ,(SP) 


#10$,CSP) 


Bee 


GET 1ST FREE ADDRESS... 
-AND WORD COUNT. 


GET NUMBER OF UNITS 
TAKE AWAY 7 WORDS PER UNIT 


;GET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 WORD 

;STORE LAST FREE ADDRESS 
;RETURN 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INIT >28K MEMORY FLAG 
INTT TEST >28K FLAG 
9 ENOUGH MEMORY ( >28K)? 


Got ENOUGH MEMORY (>32K)? 


SAVE OLD ERR VEC PIR. 
SET ERR VEC PTR. 
GOT KT11? 
(TRAP IF NO). 
YES. SET KT FLAG. 


RESTORE OLD ERR VEC PTR. 
RO = AR DATA, 

Rl = KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 
BUMP AR DATA BY 
AT "I/0"? 


NO. 
YES. SET KTPAR7 FOR I/0. 


"aK", 


SET UP RETURN 
RTI TO NEXT LOCATION 


SET UP RETURN 


SEQ 078 


tint © 


SETUP K 


021072 


021074 
021100 


» 021102 


021104 
021106 


021110 
021112 
021114 


AL AREAS 
Tl 
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1 MEMORY MANAGEMENT 


000004 
020762' 000004 
000001 170200 


000004 


002216’ 


100206 021100' 
021110° 021102" 
900006 021106 
100010 021110° 
021100" 
010562" 


REGISTER 


63: 
9%; 


108: 


17:54 
S 


RTI 


B7 


SEQ 079 


s RTI TO NEXT LOCATION 


RO, BOERRVEC s RESTORE 


OLD ERR VEC PTR. 


BOERRVEC ,RO s SAVE OLD ERR VEC PTR, 


@3% , Q@ERRVEC 1s SET ERR 


VEC PTR. 


@BITO, BOMMRO 1BE SURE UNIBUS MAP IS OFF 
ee s RESET VECTOR BACK TO ERROR POINTER 


SUBROUTINE TO SET EXTENDED “EATURES SWITCH 
Requires that SOFINIT and WRICHR nave been done previous to call. 


3; INPUTS: 


3 
sOUTPUTS: 


WSMBK: ; 


RS 


CURRENT UNIT NUMBER 


The Extended Features Switch is set. 


EXTFEA ’ 
§ 3 
#100206 , CMOPKT ; 
OWSMBK ,CMDPKT +2 3 
06, CMDPKT +6 : 
#100010, WSMBK Fy 
@CMOPKT ,R4 : 
PC ,WRTCHR F 
PC ; 
PACKET. 
10-<, -TSV2E7> 
31ST WORD 
s2ND WORD 
23RD WORD 
34TH WORD 


IS SWITCH SET? 

YES,EXIT STAGE RIGHT!(or the next one outea town!) 
WRT SUB-SYS MEM CMD 

MSG BUF ADOR 

BYTE COUNT 

INVERT THE SWITCH 

SET CMDPKT INTO R4 


IS TSOS COMMAND. 

IS THE BUFFER LOW ADORESS. 

IS THE BUFFER HIGH ADORESS. 

IS THE BYTE/RECORD/FILE COUNT. 


WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 


EVEN 


31ST WORD:: SEL O 
32ND WORD:: SEL 2 
33RO WORD:: SEL 4 


C7 


- GL 
Fart OR BPRGE menOAS*RaNAt ren? REER Pad’ #54 SEQ 080 
ic io 1 SUBROUTINE TO CHECK WETHER OR NOT WE‘LL TEST NXM 
3 
29038 3 
2904 s INPUTS: 
2905 sTPUTS: 
2906 : Tre NXMFLG is set if we can test. 
2907 : Tne NXMLO end NXMHI addresses ere setup. 
2908 1 
2909 
Bete 021116 MEMCK 
2912 021116 SAVREG sSAVE THE REGESTERS 
2913 021122 005037 003126' CLR NXMFLG sCLEAR THE FLAG 
2914 021126 005037 003130’ CLR NXMLO ;CLEAR THE TEST ADDRESS LO 
2915 621132 005037 003132’ CLR NXMPI sCLEAR THE TEST ADORESS HI 
2916 021136 032737 170000 002120’ BIT #170000 ,L SHIME sCHECK FOR MORE THAN 18 BITS INDICATED 
2o17 sF~ROM THE SUPERVISOR 
2918 021144 001050 BNE 14% ;6R, IF MAP BOx ETC. 
2919 021146 005737 003136’ TST 7238 :IS IT A PROCESSOR TYPE 8? 
2920 021152 001407 BEQ is NO 
2921 021154 023727 002120' 007777 CMP LSHIME 07777 : GREATER THAN 128K 
2922 021162 103406 BLO 2s 1 NO 
2923 021164 004737 021312’ JSR PC .NXMTST sSETUP THE ADDRESS 
2924 021170 000427 BR 138 3SET THE FLAG AND EXIT 
2925 021172 005737 003134’ 18: Ts? T23A sIS IT A PROCESSOR TYPE A? 
2926 021176 001413 BEQ 4% sNO 
2927 021200 023727 002120’ 005777 28: CMP LSHIME ,05777 sGREATER THAN 96K 
2928 021206 101027 BHI 14% 1YES, 23A/238 WITH 1°8K MEMORY 
2929 021219 023727 002120' 903777 cmp LSHIME ,@3777 sGREATER THAN 64K BUT LESS THAN 92K? 
2930 021216 103403 BLO 43 sNO, CHECK 24K 
2931 021220 004737 021312’ JSR PC .MXMTST :SETUP THE ADDRESS 
2932 021224 000411 BR 1338 3SET THE FLAG AND EXIT 
2933 021226 023727 002120' 001577 43: CMP LSHIME 01577 sGREATER THAN 24K BUT LESS THAN 64K? 
2934 021234 103414 BLO 148 3NO, TELL THEM AND EXIT WITH FLAG CLEAR 
2935 021236 004737 021312’ JSR PC .NrisT ;SETUP THE ADDRESS 
2936 021242 062737 000077 003132’ ADO 077 .NXMHI 1F OO THE 11702 € 11703 
2937 021250 032737 177774 003132' 13%: BIT @177774,NXMHI s;ANY MORE THAN 18 SITS SET? 
2938 C21256 001014 BNE 153 sBR, IF MORE THAN 18 BITS SET 
2939 021260 005237 003126° INC NXMFLG :SET THE FLAG 
2940 021264 000411 BR 158 sExIT 
2941 021266 000410 148: BR 153 sNOP FOR PRINTOUT 
2942 021270 PRINTF @NOMEM sTELL THEM &€ EXIT eeeNO PRINTecees 
021270 012746 005450’ MOV ONOMEM, -( SP) 
021274 012746 000001 MOV #1, -(SP) 
021300 010600 MOV SP ,RO 
021302 104417 TRAP CSPNTF 
021304 062706 000004 ADO 04,SP 
2943 021310 000207 158: RTS PC ;RE TURN 
2944 
2945 
2946 3? 
Aets ; SUBROUTINE TO SETUP THE NXM ADURESS FOR TESTING 
3 
hat sOUTPUTS:NXMLO,NXMHI :SETUP WITH NXM ADDRESS 
3 
2951 3° 


TSV5 - GLOBAL AREAS 


KTINIT 


021312 
021316 
021322 
021326 


021344 


021374 
021400 
21404 


021406 


013701 


010137 
000012 


042702 
010237 
000207 
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002120" 
000200 
000177 


00*150° 


177700 
003132° 


NXMTST: MOV 


ENOMOD 


L SHIME ,R1 
#200 ,R1 


0177.R1 
R1,R2 
6 


R1 
R1,NXMLO 
10. 

R2 


@177700,R2 
R2,NXMHI 
PC 


D7 


iGET TOP OF MEMORY 
sMAKE IT 170 BLOCK OR OTHER NxM 


sRESAVE RESULTS 
sPUT IN PLACE FOR XFER 
sSAVE TEST ADORESS Ow 
sPUT IN PLACE FOR xFER 
:00N'T WANT ILA! 


sSAVE TEST ACORESS HIGH 
sRE TURN 


SEQ 081 


TSvV4 - MISCELLANEOUS SECTION 
- SETUP KT11 


KTINIT 


021406 
021406 


021406 
021406 
021406 
021416 


021416 
021416 
021416 
021422 
021426 
021434 
021440 
021444 
021450 


T1 


MEMORY 


E/ 
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MANAGE NENT 


177777) «177777 «177777 


103052 


002216’ 
003126’ 
006 166° 
003144’ 
003124' 
002272" 


000036 


002172" 
003102’ 
002172’ 
003166' 
040000 


000035 


002170’ 


002012" 


003166' 


-TITLE TSV4 - MISCELLANEOUS SECTIONS 


@GNMOD TSVv4 

TSV4:: 
.SBTTL PROTECTION TABLE 
BGNPROT 

LSPROT:: 


-WORD -1, -1, -1, -1 sNO DEVICE PROTECTION REQUIRED. 
ENDPROT 


-S6TTL INITIALIZE SECTION 


aee 
;THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


; 

sIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 

; 

es 


3° 
sINScRT TEMPORARY JUMP TO ODT 
eg 


BGNINIT 
LSINIT:: 
408: CLR one 
CLR MFLG 
MOV eePRi i EPRTSW ;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG ;CLEAR “SOFT INIT” FLAG 
CLR K TENABLE ;CLEAR TEST ABOVE 28K FLAG 
CLR RAMSIZ ;CLEAR RAM SIZE FOR RAMERR ROUTINE 
READEF @€F .CONTINUE 
~ ol @€F .CONTINUE ,RO 
CSREFG 
BNCOMPLE TE 18 
Bcc is 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS 43 ;BR IF NO. 
TST DUFLG :DROPPED UNIT? 
BMI NXTU ;BR IF YES 
MOV UNITN,R1 
ASL Ri 
TsT ERTABL(R1) 
BEG SETU 
18! eeiT14, ERTABL(R1) sOROPPED? 
ExIT ONE? 300 NOTHING IF “CONTINUE”. 
TRAP CsExIT 
. WORD L10030-. 
18: READEF O€F .NEW 
MOV O€F .NEW,RO 
TRAP CSREFG 
BNCOMPLETE NXTU ;TAKE NEXT UNIT IF NOT NEW PASS. 
Bcc NXTU 


READEF O€F ,START 


SEQ 082 


TSV4_ - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


021536 012700 000040 
021542 104447 


021544 103404 


021546 012700 000037 
021552 104447 


62 021560 005037 002204' 
63 021564 005037 002212’ 


MACRO M1113 


64 021570 005037 003134' | 


65 021574 005037 003136’ 


69 021600 005037 003370' 
70 021604 

71 021604 012737 177777 
72 021612 004737 020540‘ 
73 021616 004737 020626’ 
74 021622 012700 003166’ 
7S 021626 005020 

76 021630 020027 003366' 
77 021634 103774 

78 021636 000404 

79 021640 005037 002174’ 
80 021644 000137 021714’ 


83 021650 012737 177777 
84 021656 005037 002210’ 


86 021664 005237 002172’ 
87 021670 023737 002172' 


89 021700 012737 177777 


94 021714 023727 002012’ 
95 021722 101752 
96 021724 005737 002210' 
97 021730 001747 


021732 104421 
99 021734 032700 000100 
100 021740 001343 


102 021742 
021742 104424 


002174' 


002172" 


002012’ 
003102' 


000001 


2s: 


318: 


4$: 
NEWPAS: 


NXTU: 


11$: 


PASRPT: 


F7 


O1-FEB-84 17:54 


MOV @EF .START,PRO 
TRAP CSREFG 
BCOMPLETE 2% 

6cs es 

READEF €F .RESTART 
MOV EF .RESTART,RO 


TRAP CSREFG 
BNCOMPLETE 31% 
BCC 


31% 
BRESET 
TRAP CSRESET 
CLR TSTCNT 
CLR FATFLG 
CLR T23A 
CLR T238 
MOV 0340, -(SP) 
MOV @20$,-(SP) 
JMP 0.00T 
CLR SKIPT 
MOV @-1,QvVP 
JSR PC,.ENVIRN 
JSR PC .KTINIT 
MOV ®ERTABL ,RO 
CLR RO)> 
CMP RO, OERTABE 
BLO 30% 
BR 43 
CLR ave 
JMP PASRPT 
MOV @-1,UNITN 
CLR DEVCNT 
BREAK 
TRAP CsBRK 
INC UNITN 
CMP UNITN,LSUNIT 
BLO abe 
MOV @-1, YoUFLG 
R 11$ 
DOCLN 
TRAP CsOCLN 
NOP 
CMP LSUNIT,@1 
BLOS NEWPAS 
TST DEVCNT 
BEQ NEWPAS 
RFLAGS RO 
TRAP CSRFLA 
BIT @ISR,RO 
BNE NEWPAS 
DORPT 


TRAP CsDRPT 


31ST PASS, BUS-INIT... 
3B8US RESET. 


sNUMBER OF TESTS RUN IN PASS 
sCLEAR FATAL ERROR COUNT 

sCLEAR PROCSSOR TYPE A FLAG 
sCLEAR PROCSSOR TYPE B FLAG 


sRETURN TO DEBUGGER 


+;Q@@ENTER THE DEBUGGER 
sCLEAR THE SUBTEST “SKIPPER” 


-QUICK VERIFY. 
1ST ENVIRONMENT . 
sINITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


:GO REPORT THE STATUS 


; INIT UNIT NUMBER. 
;CLEAR COUNT OF DEVICES RUNNING 


3...AND SET NEXT UNIT NUMBER. 


sABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
;8R IF ONLY 1 

sARE ANY STILL RUNNING? 
368R IF NO 


;SHOULD WE PRINT STATISTICS 
;68R IF NO 


SEQ 083 


G7 
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INITIALIZE SECTION 


021774 


021776 


000741 


012001 
010137 


012001 
010137 


012721 
013721 


101416 


104421 
032700 
001412 


013746 


012746 
012746 
0600 


012737 


002172’ 


003102’ 
002210' 


002176' 


002200' 
016116’ 
002202’ 


002172" 
100000 003166’ 


005600’ 
002012’ 000001 


003104’ 
002176’ 
000002 

016276‘ 


003104’ 
177777 003102' 


108: 
SETU: 


BR NE WPAS 
GPHARD UNITN,RO sGET UNIT N P-TABLE POINTER. 
i UNITN,RO 
CSGPHRD 
BNCOMPLETE NXTU sBR IF UNIT NOT AVAILABLE. 
Bcc NXTU 
CLR DUFLG sCLEAR “DROPPED” FLAG. 
INC DEVCNT 
MOV CRO)+,R1 sGET 1ST REGISTER ADDRESS. 
MOV R1,CSRADOR sADORESS OF REGISTERS OF UNIT UNDER TEST 
MOV CRO)+,R1 sGET VECTOR ADDRESS. 
sMOV (RO), R2 sGET INTERRUPT pans at ba 
sMOV R2, IPRi sSET INTERRUPT PRIORITY. 
MOV R1,IVEC ‘wane INTERRUPT VECTOR POINTER. 
MOV @INTR, (R1)> - VECTOR. 
MOV IPRI,(R1)+ .AND PRIORITY. 
TST QvP 31ST PASS ?? 
BEQ S$ 3NO, SKIP THE PASS 1 STUFF. 


; 
31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
sTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


10%: 


2s: 
i 
sFINALLY, 


MOV UNITN,RI1 

ASL R1 

BIS @BIT15,ERTABL(R1) sSAY DEVICE RUNNING 

CLR EXTA ;CLEAR ERROR EXTENSION FLAG. 
CMP LSUNIT,@1 sARE WE TESTING MULTIPLE UNITS? 
BLOS 10% ;6R IF NO. 

RFLAGS RO sYES -- GET OPERATOR FLAGS. 
TRAP CSRFLA 

BIT @PNT RO ;SHOULD WE PRINT UNIT @? 
BEQ 10% 3;BR IF NOT. 

PRINTF @PUNIT,UNITN sPRINT THE UNIT @ 

MOV UNITN, -(SP) 

MOV @PUNIT, -CSP) 

MOV @2,-(S 

MOV SP, 


sADDRESS OF FIRST REGISTER 


MOV R1,R2 sSTART OF REGISTERS 

ADD @TSSR ,R2 sADDRESS OF TSSR REGISTER 

JSR PC, XNXM hae BOTH CONTROLLER REGISTERS... 
BCC es -ANO BR IF ALL OK, 

MOV R1,NODEV iFLAG DEVICE AS NON-EXISTENT 

MOV #-1,0UFLG sOROP THIS UNIT. 


SET CPU PRIORITY ANC WE‘RE DONE. 


SEQ 0864 


TS 
INY 


H/ 
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YTrac Toe SECTION 


150 
151 


152 


022134 
022134 
02214 
022142 
022142 
022142 


022144 


022212 
022212 


022310 
022310 
022310 
022316 
022320 
022322 


012700 
104441 
104411 

045 


104452 


012737 
010001 

006501 
052761 


116 


100000 003166' 
040000 003166’ 


022260' 


006002 


000006 


116 


L 
177777 003102’ 


140000 003166’ 


045 


S$: SETPRI @PRIOO sENABLE INTERRUPTS. 


L10030: 
TRAP CSINIT 

PUNIT: —_ /SNGNBAseeee TESTING UNIT SD28A seeee/ 
.SBTTL ADD AND DROP UNITS SECTIONS 


* 
io ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


3 
3 
; BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
; OR (8B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
gs 
BGNAU 
LSAU: 
MOV RO,R1 +; GET UNIT TO BE cor CRO) 
ASL R1 ; MAKE IT A WORD I 
BIS #100000 ,ERTABL(R1) ; SET THE “ACTIVE” “BIT 
BIC #40000 ,ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
PRINTF 1%, 
Vv RO, -CSP 
MOV #1$,-CSP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADO 6, 
EXIT AU 
J$JMP 
«WORD L10031-2-. 
1$: -ASCIZ /sNSA UNIT SDSA ADDED/ 
-EVEN 
ENO s UNUSED. 
L10031: 
TRAP CsAU 


ef 
THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
“DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


BGNOU 

MOV @-1,0UFLG 

MOV RO,R1 

ASL R1 

BIS #140000 ,ERTABL(R1) s SAY DROPPED 


SEQ 085 


17 
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ADD AND DROP UNITS SECTIONS 
191 022330 000240 000240 000240 240,240,240 8 222722772? 
192 0223536 PRINTF @1%,R0 
022336 010046 MOV RO, -(SP) 
022340 012746 022364’ MOV #1$,-C(SP) 
022344 012746 000002 MOV @2,-(SP) 
022350 010600 MOV 
022352 104417 TRAP CSPNTF 
022354 062706 000006 ADD @6,SP 
193 022360 EXIT OU 
022360 000167 . WORD J$ JMP 
022362 000030 . WORD L10032-2-. 
194 022364 045 116 045 1%: -ASCIZ /SNSA UNIT SDA DROPPED/ 
195 EVEN 
196 022414 ENODU 
022414 L10032: 
022414 104453 TRAP Csdu 
197 gee 
io : AUTO-DROP CODE SECTION. 
3 _- 
200 022416 BGNAUTO 
022416 LSAUTO:: 
201 022416 013705 002176' MOV CSRADOR ,RS sPOINT TO DEVICE REGISTER 
202 022422 012703 000550 MOV #360. wR3 sENOUGH TIME FOR 2400’ REEL TO REWIND 
203 022426 004737 016150’ 108: JSR rw, WAITF ;WAIT FOR SSR TO SET 
204 022432 103420 BcS 208 ; sLEAVE WHEN SSR IS SET 
205 022434 DELAY 250. sWAIT FOR .25 SECONDS 
022434 012727 000372 MOV #250. .(PC)+ 
022440 000000 . WORD 0 
022442 013727 002116’ MOV LSDLY,(PC)>+ 
022446 000000 . WORD 0 
022450 005367 177772 DEC -6(PC) 
022454 001375 BNE 74 
022456 005367 177756 DEC -22(PC) 
022462 001367 ' BNE .-20 
206 022464 005303 DEC R3 3BUMP COUNTER DOWN 
207 022466 001357 BNE 10$ sKEEP GOING 
208 022470 004737 017104’ JSR PC ,CKDROP 3TRY AND DROP UNIT 
209 022474 20$: 
210 022474 ENDAUTO ; UNUSED. 
022474 L10033: 
13 022474 104461 TRAP CsAUTO 
ay -SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
214 zee 
215 3 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
216 3; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
oH s USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
gece 
219 022476 BGNCLN 
022476 LSCLEAN:: 
220 022476 013705 002176’ MOV CSRADOR ,RS sPOINT TO sin ® REGISTER 
221 022502 005737 003102’ TST DUFLG eer +4y = FLAG IS S 
222 022506 100405 BMI 1$ . AND | CONTROLLER FAULT. 
244 .DON’'T TRY TO XCT CLEANUP CODE. 


225 022510 012765 000000 000002 MOV #0, TSSRCRS) 300 SOFT INIT 


TSV4 - MISCELLANEOUS SECTIONS 
CLEAN-UP AND REPORT CODING SECTIONS 


26 022516 


255 


022522 


022710 


004737 


104412 


012746 
012746 


016150' 


022766’ 
000001 


000004 


003166’ 


040000 
170000 


023023' 
000003 


000010 


160000 


023073' 
000002 


000006 


160001 


023155’ 
000002 


000006 


J7 
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1$: 
2s: 
L1 : 


JSR 
ENOCLN 
TRAP 


PC ,WAITF 


CSCLEAN 


Po 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


gee 
LSRPT:: 


1$: 


2s: 


3$: 


BGNRPT 
PRINTS 
Vv 


@DEVSUM 


4$ 
oBIT14,R2 
2s 
@tC7777,R2 


3$ 

ODE VNXR ,R3 
R3, -(SP) 
@DEVNXR, -C SP) 


GET START OF ERROR TABLE. 

CLEAR UNIT NUMBER 

GET ERROR TABLE ENTRY € TEST IT. 
ZERO IF UNIT NOT RUN 


WAS UNIT DROPPED? 

BR IF YES 

GET ERROR COUNT FIELD 
PRINT 


WAS UNIT NON-EXISTENT? 
BR IF NO 


WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


SEQ 087 


TSV4 - MISCELLANEOUS SECTIONS MACRO M1113 


CLEAN-UP AND REPORT CODING SECTIONS 


256 
257 


022712 
022716 
022716 
022720 
022722 
022726 
022732 
022734 
022736 


258 022742 


022746 
022750 
022754 
022756 
022760 
022762 
022764 
022764 
022764 


022766 
023023 
023073 
023155 
023236 


023306 


042702 
010246 


170000 50$: 
023236’ 
000003 
000010 
000002 4$: 
003366' 
L10035 
116 045 DEVSUM 
101 040 DEVONL 
101 040 DEVNXR 
101 040 DEVNRD 
101 040 DEVDRO 


K7 


01-FEB-84 17:54 


#tC7777,R2 


R3 

R4, OERTABE 
1$ 
(SP)+,R4 


(SP)+,R3 
(SP)+,R2 


; UNUSED. 


CsRPT 


/SNSADEVICE STATUS SUMMARY : N/ 


SOSN 
NON-EXISTENT REGISTERSN/ 
NOT READY AT STARTUPSN/ 
DROPPED, ERRORS = sDsN/ 


/#A UNIT SD38A 
/SA UNIT SD38A 
/#A UNIT S038A 
/#A UNIT SD38A 


SEQ 088 


L/ 


TSV7 - HARDWARE TEST -8 MACRO M1113 01-FEB-84 17:54 
CLEAN-UP AND REPOR ZodiNG SECTIONS _ 
}H .TITLE TSV7 - HARDWARE TESTS 1-8 
9 
10 023306 BGNMOD TSV7 
023306 TSV?:: 
16 
24 
+ -SBTTL TEST 1: INITIALIZE #4 TEST 
3¢ 
27 3 
28 s;THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
29 sCONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
30 3(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF 
44 sEXTENDED FEATURES SWITCH, ETC.) 
$ 
33 3- 
34 023306 BGNTST 
023306 Tl:: 
023306 012737 006166' 002170’ MOV #EPRT1,EPRTSW ;SET UP PRIMARY ERROR MESSAGE 
37 3 
38 3 
39 ;TEST 1 
40 3 
41 ; 
; 
48 023314 004737 016104' JSR PC ,OSBINT sDOISABLE INTERRUPTS 
49 023320 012700 024244' MOV #TST21ID,RO sASCII MESSAGE TO IDENTIFY TEST 
SO 023324 004737 016412’ JSR PC, TSTSETUP :00 INITIAL TEST SETUP 
S51 023330 012737 000005 002206' MOV #S,LOOPCNT sPERFORM S ITERATIONS 
S2 023336 T21L00P: 
53 023336 004737 024266’ JSR PC, T21REST 3;SET COMMAND PACKET 
ro 023342 004737 024356‘ JSR PC, T21RT2 ;SET UP OTHER COMMAND PACKET 
Peri trTi TTT i trttt i rir ritititittt Titi ittiititittititiiiTitittittttt++ 
3 
a4 s;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
7? RRA AERERAAESEREREEDRADEAEARAEREABEREEAEREEEAEERRAREADEAAERERERREE 
62 023346 012737 176750 023722' MOV #65000. , T21DLY 3;SET DELAY ROUTINE 
63 023354 004737 015674' 11$: JSR PC,SOF INIT ;00 INITIALIZE ON CONTROLLER 
64 023360 103426 bcs 20$ ;BR IF INIT WAS OK 
65 023362 DELAY 250 . ;DELAY FOR A REWIND TO FINISH 
023362 012727 000250 MOV 9250,(PC)+ 
023366 000000 . WORD 1?) 
023370 013727 002116’ MOV LSOLY,CPC)+ 
023374 000000 . WORD 0 
023376 005367 177772 DEC -6(PC) 
023402 001375 BNE .-4 
023404 005367 177756 DEC -22(PC) 
023410 001367 BNE .-20 
66 023412 005337 023722' DEC T210LY ;BUMP COUNTER DOWN 
67 023416 001356 BNE 11$ ;BR, IF MORE TIME TO GO 
68 023420 005237 002212’ INC FATFLG ;BUMP COUNT 


72 023424 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 


it 
mw 
wn< 
=~ 


73 


~ AnuAe 


1: INITIAL LOE ba 1st 


023426 
023426 
023430 
023432 
023434 


023436 
023436 


013737 


104406 
112737 


024123' 


023700' 


002172' 
010562' 


002212" 


000200 
000010 


024010’ 
000000 
016236' 


002212' 


000000 
016150: 
000002 


176377 
002200 
000100 


002212’ 


M7 
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023720' 


024020' 
024021' 


000002 


20$: 


ERROF ERRNO, SFIERR,SFIMSG 


MOV @T21PACKET,R4 


F SSHAAEEAAAAAAEAEAAAEADEAEAEEEAAEAEEEAEREEARAAAASEAAEREEAREEEEEEERE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
J REAAHRAAAAEARAAEEAEAEAEASEREERAREAEASAREREEEAREREERERAALEEAREEEAEEE 


23%: 


25%: 


30$: 


35$: 


MOV UNITN, T210SW 
JSR PC,WRTCHR 

BCS 23% 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO, WRTMSG, SF IMSG 
CKLOOP 

MOVB #200, T218S0 
MOVB #10,T218S1 

MOV @T21PK2,R4 

MOV R4, TSDBCRS) 
JSR PC ,,CHKTSSR 

BcS 30$ 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T21SSR,PKTSSR 
CKLOOP 

MOV #0, TSSRCRS) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV R1,R2 

BIC #tC<HIADDR> ,R2 
BIS #SSR!NBA,R2 
BIT @OFL,R1 

BNE 38% 

CMP R1,R2 

BEQ 37$ 


LG 
ERRHRD ERRNO, T21AM3,EXPREC 


SEQ 090 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 101 
.WORD SFIERR 
. WORD SF IMSG 
sSUBROUTINE NEEDS PACKET ADDRESS 
;SET UP ORIVE NUMBER 
sISSUE WRITE CHARACTERISTICS 
;B8R, IF COMMAND ISSUED OK 
;BUMP COUNT 
;SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
. WORD 102 
.» WORD WRTMSG 
. WORD SF IMSG 
TRAP CS$CLP1 
sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT 
sWRITE SUBSYS MEM PACKET 
; ISSUE COMMAND 
;WAIT FOR SSR 
;BR, IF NO ERROR 
sERROR, SAVE TSSR 
;BUMP COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHWRD 
.WORD 103 
. WORD T21SSR 
. WORD PKTSSR 
;SCOPE LOOP 
TRAP CSCLPlL 


sISSUE A SOFT INITIALIZE 

;WAIT FOR JUST THE SSR BIT TO SET 
sREAD THE TSSR BACK 

;WORK REGISTER 

;CLEAR OUT OTHER BITS 

;SOME OF THE BITS THAT SHOULD BE SET 
:IS OFF LINE BIT SET 

;BR, IF ORIVE IS OFF LINE 
sEXPECTED (R2) = RECEIVED (R1) 
3BR, IF THEY ARE EQUAL (OK) 

;BUMP COUNT 


;“ERROR TRYING TO INIT AFTER WRITE MISC. 
TRAP CSERHRD 
. WORD 104 
. WORD T21AM3 


TSV7 - HARDWARE TESTS 1-8 
INITIALIZE #4 TEST 


TEST 


1: 


024006 
024010 
024010 
024012 
024014 
024016 


024020 
024020 
024021 
024022 
024024 


015374' 


104406 
000406 


104455 
000151 
024223' 
015374' 
004737 
000241 
106037 
001316 


104406 
004737 016360’ 
103002 

000137 023336’ 


104432 
000524 


017104’ 
024021’ 


100004 
023710' 
000000 
000012 
023724' 
000000 
000024 
000000 
000000 
000000 


N7 
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37$: CKLOOP 
BR 
38$: 
ERRDF 
JSR 
40$: CLC 
RORB 
BNE 
50$: CKLOOP 
JSR 
BCC 
JMP 
63%: EXIT 


40$ 
ERRNO, T210FL ,EXPREC 


PC ,CKDROP 
T21BS1 

25$ 

PC, TSTLOOP 
63$ 


T21L00P 
TsT 


3¢ 
;LOCAL STORAGE FOR THIS TEST 


y= 
.BLK 
T21PACKET: 


T21DATA: 


T210SW: 
T210LY: 
T21BFR: .BLKW 


a 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
é 


LKB 

T21PKe2: 
. WORD 
. WORD 
. WORD 
. WORD 
EVEN 

T218F 2: 
T21B8S0: .BYTE 
T21BS1: .BYTE 
T21S2: .WORD 
T21S3: .WORD 


10-<.-TSV2E7> 


100004 
eon 


10, 
T21BFR 


SOOQo 


25. 


10-<, -TSV2E7> 


100206 
T218F2 
te) 

6. 


oooo 


SEQ 091 


EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 


;SKIP OVER OFF-LINE STUFF 
sORIVE IS OFF LINE 


TRAP C$ERDF 
-WORD 105 

«WORD T210FL 
«WORD EXPREC 


3 TRY AND DROP UNIT 

;D0N‘'T LET CARRY SNEAK IN 

sTRY NEXT “LOWEST” BIT POSITION 
sLOOP UNTIL ALL EIGHT BITS TESTED 
sSCOPE LOOP 


TRAP CsCLP1 
;00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
;ALL DONE THIS TEST 
TRAP CSEXIT 
«WORD L10036-. 


;COMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sORIVE SELECT WORD 
sDELAY COUNTER 
sMESSAGE BUFFER 


;WRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


;BSELO AREA --- 
;BSEL1 AREA 
sSEL 2 AREA 
;DATA AREA 


“COMMAND” BYTE 


024026 


3 024123 


024223 
024244 


012701 
012721 


012721 


B8 


‘WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 
‘TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS: 


‘Initialization 04° 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


-8 MACRO M1113 O1-FEB-84 17:54 
TEST 
ad 
sLOCAL TEXT MESSAGES FOR TEST 
t- 
122 111 T21SSR: .ASCIZ 
123 123 T21AM3: .ASCIZ 
162 151 T210FL: .ASCIZ ‘Drive is OFFLINE’ 
156 151 TST21I0: -ASCIZ 
.EVE 
3? 
sWRITE SUBSYSTEM MEMORY COMMAND 
‘ 
t- 
T21REST;: 
SAVREG 
023700' MOV @T21PACKET,R1 
100004 MOV #100004 ,(R21)> 
023710’ MOV @T2ZIDATA (R1)- 
CLR CR1)-> 
000010 MOV 8. .CRL)> 
023724' MOV @T21BFR,CR1)> 
CLR (R1)> 
000024 MOV #20. ,(R1)> 
CLR (R1)> 
CLR CR1) 
000020 MOV #20 
177777 023724 643: mat pe PN T21BFR(R2) 
S 2 
000000 CMP R2,00 
BNE 648 
RTS PC 
T21RT2: 
SAVREG 
024010' MOV @T21PK2,R1 
100206 MOV #100206,(R1)-> 
024020’ MOV @T21BF2,(R1)> 
CLR C(R1)> 
000006 MOV @6.,(R1)> 
CLR C(R1)- 
024020 MOV OT21BF2,R1 
CLR (R1L)> 
CLR (R1) 
RTS PC 
ENOTST 
-SBTTL TEST 2; 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF CHARAISTICS DATA BLOCK 
TEXTENDED ADORE SS 

sSIZE OF DATA BLOCK IN BYTES 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sNUMBER OF LOCATIONS TO BE CLEARED 
sALL ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

;CHECK R2 FOR ZERO 

;8R, IF NOT AT ZERO YET 

;RE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, IE 
sADDRESS OF DATA BLOCK 

sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sADDRESS OF DATA FOR WRT SUB S1S MEM 


sRE TURN 


L10036: 


TRAP Csers?r 


OFF-LINE AND REJECT REWIND 


‘ 
sTHIS TEST VERIFIES BASIC TAPE -MOTION COMMAND DECODING 4ND BASIC 


SEQ 092 


reSt 


C8 


HAR 57 - ROM -FEB- : 
CAPE ERS AcSecr neuMGPO MINIS 01-FeD.06 17254 
232 sOPERATION OF THE REWIND COS tT TONING COMMAND. IT DOES NOT 
233 sNECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
234 sARBITRARY POSITION ON THE TAPE. SUBSEQUENT i? 1am pel einy 
235 sCHECK THE OPERATION OF THE REWIND COMMAND SINCE yY musT 
236 s TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE oF ern TEST 
44 Apgepeentencs THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS 
239 
24n i- 
241 024422 BGNTST 
024422 T2:: 
242 024422 012737 006166’ 002170’ MOV @EPRT1 ,EPRTSwW sSET UP PRIMARY ERROR MESSAGE 
247 024430 004737 016104’ JSR PC ,OSBINT sOISABLE INTERRUPTS 
248 024434 012700 026707’ MOV @TST22I0,RO sASCII MESSAGE TO IDENTIFY TEST 
249 024440 004737 016412° JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
ae 024444 012737 000005 002206’ MOV @5,LOOPCNT sPERFORM 5S ITERATIONS 
1 se 
252 ; 
aoe _ 2. SUBTEST 1 
255 | VERIFIES THAT ALL TAPE-MOTION COMMANDS (WITH VALID 
256 sMODE CODES) TERMINATE WITH FUNCTION REJECT AND 
257 sOFF-LINE STATUS WHEN THE TAPE TRANSPORT IS OFF-LINE. 
258 sTHE SUBTEST OPERATES BY PLACING THE CONTROLLER INTO 
259 sEXTENDED MODE, SELECTING UNIT 7, AND ISSUING EACH 
260 3 TAPE -MOTION COMMAND , CHECKING. AFTER EACH COMMAND, 
oes 3; THAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED. 
g° 
263 
264 024452 T22L00P : 
265 024452 BGNSUBS 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>3 >>> 
024452 T2.1: 
024452 104402 TRAP CsB8SUB 
266 024454 004737 026742° JSR PC, T22REST +SET COMMAND PACKET 
oH 024460 004737 027034' JSR PC, T22RT2 sSET UP OTHER COMMAND PACKET 
269 FOSSA OEEASEEESEEESESESEEOEEEOEEEEEEEEEEOEEEEEEESEES*HOOEEEEREOOEES 
270 : 
4a sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
Bh s eaiobeinnminenninebentaemmmnitbaebindettenilniamiiiiialiiaindianen tient ene 
4 
275 024464 004737 015674° JSR PC, SOF INIT 100 INITIALIZE ON CONTROLLER 
276 024470 103407 Bcs 20% 36R IF INIT WAS OK 
277 024472 005237 002212’ INC FATFLG sBUMP COUNT 
281 024476 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
282 024500 ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
024500 104455 TRAP CSEROF 
024502 000311 -WORO 201 
024504 003642’ . WORD SFIERR 
024506 011734’ . WORD SF IMSG 
283 024510 208: 
= 024510 012704 025770’ MOV OT22PACKET ,R4 sSUBROUTINE NEEOS PACKET ADORESS 
286 FOPOSHOEEEHHESEAESESEEEAEEOEOE REE OE SESE EEEEEEEEHSEOEREEEEEEOEEEEEOSE 
287 ; 
288 sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


SEQ 095 


tei 


D8 


APY e INS AeSecr meu? "1S oF FeB-08 17154 


269 
290 
291 


292 
293 
294 
298 
299 


024660 
024664 
024666 
024672 
024674 


026130' 
011746' 


104406 
012704 


004737 
103407 
005237 
010001 


010562" 
002212" 


002212" 


002216' 
000200 
000010 
026100' 


000000 
016236' 


002212' 


025770' 


010562' 
002212" 


026111" 
026110° 


SEQ 094 


a 
EOHOOHHO OEE H ORES EEE EO SEEEEOEOOEEEEOOEEEO46466466464666566606066060600066 


23%: 


24s: 


CKLOOP 
MOV 


PC,.WRICHR 
23% 
FATFLG 


RO,R1 
ERRNO ,WRTMSG , SF IMSG 


T22BFR+6,R1 

04,R1 

243 

FATFLG 

ERRNO, T22WLK , SF IMSG 


EXTFEA 
Sos 


PC.CHKTSSR 
30% 
RO,R1 


FATFLG 
ERRNO, T22SSR,PKTSSR 


@T22PACKET RO 


sISSUE WRITE CHARACTERISTICS 
s6R, IF COMMAND ISSUED OK 


sBUMP COUNT 
i SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
«WORD 202 
«WORD WRIMSG 
-WORD SFIMSG 
TRAP CSCLP1 

sPICK UP xTSO 

3IS UNIT WRITE -LOCKED? 

sNO,PROCEED WITH TESTING 

;BUMP COUNT 

;TAPE IS WRITE LOCKED 
TRAP CSERDF 
-WORD 203 
. WORD T22WLK 
-WORD SF IMSG 
TRAP CSOCLN 

CSCLP1 


;CHECK FOR EXTENDED FEATURES SW SWITCH 

s8R IF SWITCH IS ON 

sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA Hw 
sWRITE SUBSYS MEM PACKET 

s ISSUE COMMAND 


;WAIT FOR SSR 

;8R, IF NO ERROR 

sERROR, SAVE TSSR 

;BUMP COUNT 

;TSSR NOT CORRECT AFTER ao “MISCELLANEOUS 

TRAP CSERHRD 

. WORD 204 
. WORD T22SSR 
.WORD PKTSSR 


sLOOP IF SELECTED 


TRAP CsC.P1 
sSUBROUTINE NEEDS PACKET ADDRESS 


F SSOSSHSESHSSESESEESEESESESEEEESESEOEEHEEEEEEHEEEOEEOEEEEEEEEEOEEEE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


FPSSSSSEHAOEESSEHOESESEEESEEEESEEEEESEEHEEEEEOEEEEEESHEEEEOOEEEHEEEEO 


ERRHRD 


PC,WRICHR 
50% 

a 

RO,R 

ERRNO, WRIMSG, CF IMSG 


sISSUE WRITE CHARACTERISTICS 
s3R, IF COMMAND ISSUED OK 
sBUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


E& 


TSV7 - HARDWARE TESIS 1-8 MACRO M1115 O1-FEB-84 17:54 
TEST 2: OFF-LINE AND REJECT REWIND SEQ 095 


024674 104456 TRAP CSERHRO 
024676 000315 «WORD 205 
024700 005046’ - WORD WRTMSG 
024702 011734 . WORD SF IMSG 

342 024704 50$: CKLOOP sSCOPE LOOP 
024704 104406 TRAP CscLP1 

343 024706 016501 000002 MOV TSSRCRS),R1 1GET TSSR CONTENTS 

344 024712 032701 000100 BIT OOFL .R1 ;CHECK FOR THE OFFLINE BIT SET 

34S 024716 001006 BNE 60$ sBR, IF OFFLINE (GOOD) 

346 024720 005237 002212’ INC FATFLG sBUMP COUNT 

350 024724 ERROF ERRNO, T220FL ,SFIMSG SOF LINE SHOULD HAVE —— A (BAD) 
024724 14455 CSEROF 
024726 000316 "WORD 206 
024730 026325’ WORD T220FL 
024732 011734’ . WORD SF IMSG 

351 024734 608: CKLOOP sLOOP IF SELECTED 
024734 104406 TRAP CsCLPl 

352 024736 012703 026116’ MOV @T22RD RS sPOINTER FOR COMMANDS 

353 024742 011337 026100' 658: MOV CR3), T22PK2 3 TAPE MOTION COMMAND IN PLACE 

354 024746 012704 026100° MOV @T22PK2 ,R4 3R4 = POINTER TO PACKET 

355 024752 010465 000000 MOV R4,TSOBCRS) s ISSUE COMMAND 

356 024756 004737 016150' JSR PC ,WAITF sWAIT FOR SSR TO SET 

357 024762 016501 000002 MOV TSSR(RS), Ri sGET TSSR CONTENTS 

358 024766 012702 100306 MOV @SSR!SC!IOFL !BITL!BIT2, R2;SET UP EXPECTED 

359 024772 020102 CMP R1,R2] ;ARE THEY EQUAL 

360 024774 001406 BEQ 808 38R, IF OK ESP. FUNCTION REJECT 

361 024776 005237 002212’ INC FATFLG sBUMP COUNT 

365 025002 ERRHRD ERRNO, T22TM,EXPREC iTSSR INCORRECT AFTER ag | we CMD 
025002 104456 CSERHRD 
025004 000317 TMORO 207 
025006 026400’ . WORT T22TM 
025010 015374’ . WORD EXPREC 

366 025012 80%: CKLOOP ;LOOP IF SELECTED 
025012 104406 TRAP CsCLP1 

367 025014 005723 TsT CR3)> sPQINT TO NEXT COMMAND 

368 025016 022713 177777 CMP @177777,(R3) sENO OF THE COMMANDS YET 

369 025022 001401 BEQ - 908 ;BR, IF DONE 

370 025024 000746 BR 65$ sMORE COMMAND(S) TO GO 

371 025026 90%: 

272 025026 ENDSUB 3>>>>>>>>>>>> END 5 = + >>>>>>>>>>>> 
025026 L1004 
025026 104403 TRAP CsEesus 

373 025030 023727 002212’ 000017 CMP FATF.G,@15. sIS ERROR COUNT AT 25 

374 025036 103402 BLO 999% ;BR, IF LESS THAN 25 

375 025040 004737 017104’ JSR PC ,CKDROP 3TRY TO DROP THE UNIT 

376 025044 999%: 

377 

378 ze 

379 : 

— sTEST 2, SUBTEST 2 

é 

382 sVERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME 

383 sCHECK (CvC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK 

384 s(vCK) FLAG IS SET. 

385 ; 

386 3 


387 # 


TSV7 - HARDWARE TESTS 1-8 


F8 


MACRO M1113 O1-FEB-84 17:54 


TEST 2: OFF-LINE AND REJECT REWIND 


104402 
004737 026742° 
004737 027034’ 


015674' 
002212’ 


025770° 


010562" 
002212’ 


002216' 


000200 
000010 
06100" 


~Q0000 
316236' 


002212' 


011746' 
104406 


438 025210 


BGNSUB 


JSR PC, T22REST 
JSR PC, T22RT2 


SEQ 096 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2. 


J SOSSSSHSSEASEHSHSEHEHESESESESESESASESEEEEESESEEEHEEESCEEEEEEEEEEEEEES 


; 
; ISSUE CONTROLLER “SOFT” INITIALIZE 


3 
§ PFSSSOHHHHESSESESESESEASEEHSEEESEEEEEEESEEEHEEESSEEEEEEEHESEEEEEEEEOEES 


JSR PC, SOF INIT 
20% 


BCS 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 
20%: 

MOV @T22PACKET ,R4 


TRAP cs6sus 

:SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

- CARRY BIT CLEAR IF ERROR 

300 INITIALIZE ON CONTROLLER 

:6R IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CsEROF 
. WORD 208 
. WORD SFIERR 
. WORD SF IMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


J PSOSSSEHAHASSESSESEHSASSSESEEEEEESESEEEEEESEAEEEESESEEESEESESOEEEEEEESE 


i 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


é 
FSSSSSHESEDESESSESASESSSAESESSADESESEEESEHEESEEESEEESESEEEEREEEEEOEEEEE 


JSR PC ,.WRTICHR 
23% 


ecs 
INC FATFLG 
MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG 
23%: TST EXTFEA 
BNE Sos 
026111’ MOVB #200, T22BS1 
026110' MOVE #10, T228S0 


MOV @T22PK2,R4 
MOV R4, TSOBCRS) 


JSR PC, CHKTSSR 
BCS 30% 
MOV RO,R1 


INC FATFLG 
ERRHRD ERRNO, T22SSR,PKTSSR 


30$; CKLOOP 


s ISSUE WRITE CHARACTERISTICS 
:BR, IF COMMAND ISSUED OK 
sBUMP COUNT 

SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 

«WORD 209 

- WORD pate 
M 


-WORD  SFIMSG 
sCHECK FOR EXTENDED FEATURES SW SWITCH 
;B8R IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
sWRITE 9 nh A PACKET 


:BR, IF NO ERROR 
sERROR, SAVE TSSR 


;BUMP COUNT 
iTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
«WORD 210 
-WORD T22SSR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLPL 
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TEST 2: 


439 
440 
441 
442 
443 
44d, 
445 
446 
447 
448 
449 
453 
454 


0264 74' 
015374’ 


104406 
104403 


023727 
103402 


004737 


010562’ 
002212" 


000002 
000100 


002212' 


102210 
026100' 
000000 
016150’ 
000002 
100306 


002212' 


002212’ 
017104" 


G8 
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025212 012704 025770' 


026100' 


000017 


MOV 


@T22PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


{OCR EEEEEEEEEEEEREEESEEEHEEEEEEREEEEEESEDEEEEEEEEEEEEEEEEEEREES 
i 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
§ SSSAASSSSEHHASHESESEESSESEEEESEESEESESESESEEEESESOEEHEEEESEESESEEEEESD 


60$: 
65%: 


80$: 


999%: 


PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 

50$ sBR, IF COMMAND ISSUED OK 

FATFLG ;BUMP COUNT 

RO,R1 sSAVE CONTENTS OF TSSR 

ERRNO, WRTMSG , SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
WORD 211 


sSCOPE LOOP 
TRAP CsCLP1 
TSSRCRS),R1 s;GET TSSR CONTENTS 
@OFL,R1 ;CHECK FOR THE OFFLINE BIT SET 
60$ sBR, IF OFFLINE (GOOD) 
FATFLG ;BUMP COUNT 
ERRNO, T220FL , SF IMSG :OFF LINE SHOULD HAVE —— SET yn 


° "MORO 212 

«WORD T220FL 

-WORD SFIMSG 
;LOOP IF SELECTED 


TRAP CSCLP1 
#102210, T22PK2 sPOSITION COMMAND (REWIND MODE ) 
@T22PK2.R4 3R4 = POINTER TO PACKET 
R4, TSOBCRS) 3: ISSUE COMMAND 
PC ,WAITF sWAIT FOR SSR TO SET 
TSSR(RS), R1 ;GET TSSR CONTENTS 
@SSR!SC!OFL!BIT1!BIT2, R2iSET UP EXPECTED 
R1,R2 ;ARE THEY EQUAL 
80$ ;BR, IF OK ESP. FUNCTION REJECT 
FATFLG ;BUMP COUNT 
ERRNO, T22RWJ, EXPREC ;TSSR INCORRECT AFTER TAPE MOTION CMD 
TRAP CSERHRD 
WORD 213 


“WORD EXPREC 
;LOOP IF SELECTED 
TRAP CscLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10041: 
TRAP CsESUB 


FATFLG,@15. sIS ERROR COUNT AT 25 
999% :BR, IF LESS THAN 25 
PC ,CKDROP ;TRY TO DROP THE UNIT 


° 
sTEST 2, SUBTEST 3 


SEQ 097 


H8 
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TEST 2: OFF-LINE AND REJECT REWIND 
488 ‘ 
489 sVERIFIES THAT A REWIND COMMAND WITH CvC*1 CLEARS vCK 
poe ;AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 
a 
492 Hy 
493 t- 
494 025366 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
025366 T2.3: 
025366 104402 TRAP Cs6SuUB 
495 025370 004737 026742’ JSR PC, T22REST 3SET COMMAND PACKET 
pe 025374 004737 027034’ JSR PC, T22RT2 ;SET UP OTHER COMMAND PACKET 
498 FSMOAHAHSAHEHEHEHEHEHEAEESEEL SESESEEEREEEEEEEEEEEEAEEEEEHEEEEEEEEOEEEE 
499 ; 
a ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
: 
502 FPPSASHASSAASASERESASEEESEEESEEEAEEEEEEEEEEEEEEEEHEOEEEEEEEOEREDEEEE 
503 
504 025400 004737 015674’ JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
505 025404 103407 6cs 20% ;B8R IF INIT WAS OK 
506 025406 005237 002212’ INC FATFLG ;BUMP COUNT 
S510 025412 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
511 025414 ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
025414 104455 TRAP CsEROF 
025416 000326 - WORD 214 
025420 003642’ «WORD SFIERR 
025422 011734’ . WORD SF IMSG 
S12 025424 208: 
ote 025424 012704 025770’ MOV @T22PACKET ,.R4 sSUBROUTINE NEEDS PACKET ADDRESS 
pte FOSAESHESESHEESESHAAEEEEESEEEEEEEHEEEAEESEEEEEEOESEEEHEEEEEREDEDEEEES 
16 : 
aH sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
a 
519 J OAASSAHHAEAESSAESEEEHEEHESEEEESSEEEEESEHEEEEEEEEDEEEAEEEEEHEEEEDEDOEE 
S21 025430 004737 010562’ JSR PC ,WRICHR sISSUE WRITE CHARACTERISTICS 
S22 025434 103407 6cs 233 ;BR, IF COMMAND ISSUED OK 
S23 025436 005237 002212’ INC FATFLG sBUMP COUNT 
527 025442 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
528 025444 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
025444 104456 ‘ TRAP CSERHRD 
025446 000327 . WORD 215 
025450 005046’ . WORD WRTMSG 
025452 011734' . WORD SF IMSG 
S29 025454 005737 002216’ 238: TsT EXTFEA sCHECK FOR EXTENDED FEATURES SW SWITCH 
see 025460 001041 BNE 508% ;3R IF SWITCH IS ON 
532 025462 112737 000200 026111’ MOVB 200, T228S1 sWRITE MISCELLANEOUS CONT/READ STATUS 
533 025470 112737 000010 026110’ MOVB #10, T228S0 sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
534 025476 012704 026100’ MOV @T22PK2 ,R4O sWRITE SUBSYS MEM PACKET 
535 025502 010465 000000 MOV R4,TSDBCRS) : ISSUE COMMAND 
536 025506 004737 016236’ ISR PC,CHKTSSR ;WAIT FOR SSR 
537 025512 103407 6cS 30% ;68R, IF NO ERROR 
538 025514 010001 MOV RO,R1 sERROR, SAVE TSSR 
539 025516 005237 002212’ INC FATFLG :BUMP COUNT 


543 025522 ERRHRD ERRNO, T22SSR,PKTSSR sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
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025710 


026130' 
011746" 


104406 
012704 


015374' 


104406 
012703 
016301 
010102 
042702 
020102 


025770°' 


010562’ 
002212’ 


000002 
000100 


002212" 


026012’ 
000006 


000020 


18 
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026100' 


TRAP CSERHRO 


«WORD 216 
-WORD T22SSR 
WORD PKTSSR 
30$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
MOV @T22PACKET ,R4 s SUBROUTINE NEEDS PACKET ADDRESS 
J AOROROOOEEEAEEESEEEAEESESEEEEEEESEADEREEEDEEDEEEEESEEEEOOEEEEEEEE 
é 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
peocecececoonccccoooncsecasosannenne+ssesnsscnsseconsc;;se+sceosees 
JSR PC,.WRICHR s ISSUE WRITE CHARACTERISTICS 
BCS 50% sBR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ; SAVE CONTENTS OF TSSR 
FRRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 217 


-WORD  WRTMSG 
-WORD SFIMSG 


50$: CKLOOP sSCCPE LOOP 
TRAP CsCLP1 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
BIT @OFL ,R1 sCHECK FOR THE OFFLINE BIT SET 
BNE 60$ 3BR, IF OFFLINE (GOOD) 
INC FATFLG ; BUMP COUNT 
ERRDF ERRNO, T220FL,SFIMSG sOFF LINE SHOULD HAVE = -_ or i = 
"WORD 218 
«WORD T220FL 
-WORD SFIMSG 
60%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
65$: MOV #142010, T22PK2 sPOSITION COMMAND (REWIND MODE) CvC-1 
MOV @T22PK2,R4 sR4 = POINTER TO PACKET 
MOV R4, TSOBCRS ) s ISSUE COMMAND 
JSR PC, ,WAILTF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV OSSR!OFL!SC!BITL!BIT2, R2;SET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 80% iBR, IF OK ESP. FUNCTION REJECT 
INC FATFLG s;BUMP COUNT 
ERRHRD ERRNO, T22RWJ,EXPREC iTSSR INCORRECT AFTER TAPE MOTION CMD 
TRAP CSERHRD 
-WORD 219 
“WORD = T22RWJ 
-WORD EXPREC 
608: CKLOOP sLOOP IF SELECTED 
TRAP CscLP1 
MOV @T22BFR,R3 sPOINTER TO MESSAGE BUFFER 
MOV XSTOCR3),R1 sPICK UP XSTO FROM MESSAGE BUFFER 
MOV R1,R2 ;SET UP EXPECTED 
BIC OBIT4,R2 sVCK SHOULD BE CLEAR 


CMP R1,R2 ;ARE THEY EQUAL 


SEQ 099 
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590 
S91 
595 


026114 


S 1-8 


026547' 


002212" 
017104' 
016360° 
024452’ 
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000017 


BEG 90$ 
INC FATFLG 
ERRHRD ERRNO, T22VCK ,EXPREC 


90%: 
ENDSUB 
CMP FATFLG,@15. 
BLO 9993 
JSR PC ,CKDROP 
999%: 


JSR PC, TSTLOOP 
163$ 


JMP T22L00P 
163%: ExIT TsT 


3° 
sLOCAL STORAGE FOR THIS TEST 
g= 


-BLKB 10-<,-TSV2E7> 
T22PACKET: 

-WORD 100204 

-WORD T22DATA 

-WORD 0O 

-WORD 10. 
T22DATA: 

-WORD T22BFR 

-WORD O 

«WORD 20. 

-WORD O 

WORD 7 


T22BFR: .BLKW 25. 
3 
;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
; 
.BLKB s10-« . - TSV2€7> 


T22PKe: 
. WORD 100206 
. WORD T22BF 2 
-WORD O 
-WORD 6. 
EVEN 
T22BF 2: 
T228S0: .BYTE O 
T228S1: .BYTE O 
T22S2: .WORD 0O 
T2253: .WORD 0O 


;6R, IF OK (G9ND) 
;BUMP Cc 


OUT 
sVCK WASN’ T CLEAR (BAD) 


TRAP 
. WORD 
. WORD 
. WORD 


CSERHRD 
20 


2 
T22vcK 
EXPREC 


3>>>2>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L1004e: 


TRAP 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


sD0 WE NEED TO ITERATE TEST 


;BR, IF NO LOOP REQUIRED 


sEXECUTE AGAIN 
sALL DONE THIS TEST 


sCOMMAND PACKET FOR TEST 


TRAP 
. WORD 


CsESUB 


CsExIT 
L10037- 


SEQ 100 


;WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 


sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE 7 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sBSELO AREA 
sBSEL1 AREA 
sSEL 2 AREA 
;DATA AREA 


K8 
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TEST 2: OFF-LINE AND REJECT REWIND . 

646 ;TAPE MOTION PACKET COMMAND VALUES 

647 026116 100201 T22RD: .WORD 100201 sREAD TAPE FORWARD 

648 026120 100205 T22WRT: .WORD 100205 sWRITE TAPE FORWARD 

649 026122 190210 T22POS: .WORD 100210 sPOSITION TAPE 

650 026124 100211 T22FOR: .WORD 100211 sFORMAT TAPE 

+43 026126 177777 . WORD 177777 sEND OF DATA 

653 

654 3¢ 

655 ;LOCAL TEXT MESSAGES FOR TEST 

sr ‘ 

658 026130 127 122 111 T22SSR: .ASCIZ ‘WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 

659 026225 124 123 123 T22AM3: .ASCIZ ‘TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS’ 

660 026325 104 162 151 T220FL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 

661 026400 124 123 123 T22TM: .ASCIZ ‘TSSR Incorrect After Tape Motion Command To Off-Line Device’ 

662 026474 124 123 123 T22RWJ: .ASCIZ ‘TSSR Not Correct After REWIND With VCK Set’ 

663 026547 103 126 103 T2evCK: .ASCIZ ‘CVC Set. Didn''t Reset VCK In + ge Buffer’ 

664 026622 052 052 OS2 T2ew.K: .ASCIZ ‘seeseeTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSseseea’ 

665 026707 117 146 146 TST22I0: -ASCIZ ‘Off-Line And Reject Rewind’ 

666 .EVEN 

667 3° 

668 : 

669 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

te sWRITE SUBSYSTEM MEMORY COMMAND 

3 

672 :- 

673 

674 026742 T22REST: 

675 026742 SAVREG ;SAVE THE REGISTERS 

676 026746 012701 025770’ MOV @T22PACKET,R1 ;START OF THE PACKET 

677 026752 012721 100204 MOV #100204 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, IE 

678 026756 012721 026000’ MOV @T22DATA,C(R1)>+ sADDRESS OF CHARAISTICS DATA BLOCK 

679 026762 00502: CLR CR1)+ sEXTENDED ADDRESS 

680 026764 012721 000012 MOV #10. ,CR1)-+ ;SIZE OF DATA BLOCK IN BYTES 

681 026770 012721 026012’ MOV @T22BFR,CR1)+ sADDRESS OF MESSAGE BUFFER 

682 026774 005021 CLR CR1)+ 

683 026776 012721 000024 MOV #20. ,(R1)+ sLENGTH OF MESSAGE BUFFER 

684 027002 005021 CLR CR1)+ 

685 027004 012711 000007 MOV @7,C(R1) ;SELECT ORIVE SEVEN 

686 027010 012702 000020 MOV #20 ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 

687 027014 012762 177777 026012' 643: MOV #177777, T22BFR(R2) sALL ONES TO MESSAGE BUFFER 

688 027022 005742 TST -(R2) ;BUMP R2 DOWN 

689 027024 020227 000000 CMP R2,00 :IS R2 AT ZERO YET 

690 027030 001371 BNE 64$ sKEEP GOING UNTIL DONE 

4) 027032 000207 RTS PC ;RETURN 

693 

694 027034 T22RT2: 

695 027034 SAVREG sSAVE THE REGISTERS 

696 027040 012701 026100’ MOV @T22PK2,R1 sSTART OF THE PACKET 

697 027044 012721 100206 MOV 100206,(R1)>+ ;sWRITE SUBSYSTEM MEM. WITH ACK, IE 

698 027050 012721 026110’ MOV @T22BF2,(R1)+ sADDRESS OF DATA BLOCK 

699 027054 005021 CLR CR1)> sEXTENDED ADDRESS 

700 027056 012721 000006 MOV 6.,(R1)>+ sSIZE OF DATA BLOCK IN BYTES 

701 027062 005021 CLR CR1)+ 

702 027064 012701 026110’ MOV @T22BF2,R1 ;POINT TO DATA SEL AREA 
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027070 
027072 
027074 
027076 
027100 
027100 
027100 


027102 
027102 
027102 
027110 
027114 
027120 
027124 
027130 
027134 
027140 


027146 
027146 
027146 
027146 
027150 
027154 


027167 


012737 006166' 
005037 003124' 
004737 017176' 
004737 016104' 
012700 033666' 
004737 016412’ 
004737 021116’ 
012737 000005 


104402 
004737 033702' 
004737 033774' 


004737 015674' 
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CLR CR1)> 

CLR (R1) 

CLR (R1) ;LAST LOC TO BE CLEARED 
RTS PC ;RETURN 

ENDTST 


L10037: 
TRAP CsETstT 


-SBTTL TEST 3: BASIC WRITE DATA 
3¢ 


; 

;THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
sPROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
sWRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
sLIMITEO TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 


a 

;THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 
; 

; 

H 

3; = 


BGNTST 7 
002170' MOV SEPRT1,EPRTSW ;SET UP PRIMARY ERROR MESSAGE 
CLR K TENABLE 3TURN OFF KT11 
JSR PC ,.KTOFF 3TURN OFF KT11 
JSR PC ,OSBINT sDISABLE INTERRUPTS 
MOV @TST23ID0,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
JSR PC ,MEMCK ;CHECK FOR ‘MEMORY 
002206' MOV #5 ,LOOPCNT sPERFORM S ITERATIONS 


3° 
3 
sTEST 3, SUBTEST 1 


° 

;VERIFIES THAT A WRITE COMMAND CANY VALID MODE CODE) 
;WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
;VALIO MODE CODES ARE CHECKED (WRITE DATA, WRITE 


;RETRY). 
.” 
T23LO00P: 
BGNSUB ;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T3.1: 
TRAP CsBSuUB 
JSR PC, T23REST ;SET COMMAND PACKET 
JSR PC, T23RT2] 3SET UP OTHER COMMAND PACKET 


Per TT iri titi titi i ttt tittit titi titi iii titi ttitititiririritirirr tir) 
; 

;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

° 
pPAAEEEAEAEAEEEEAEAEEAEEESEEAERAEEEEEREEREEAEEDREREEEEEEEEREEEEEEDE 


JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 


SEQ 102 


HARDWARE T 
: BASIC wR 


027164 
027166 
027172 
027174 
027174 
027176 
027200 
027202 
027204 
027204 
027212 


027216 
027222 
027224 
027230 
027232 
027232 
027234 
027236 
027240 
027242 
027246 


027334 
027340 
027342 


012737 
012704 


112737 


032544' 
011746' 


104406 
012737 
012704 


004737 
103407 
005237 


waite DATA 


002212’ 


000007 
032360' 


010562’ 


002212’ 


000000 
016236' 


002212' 


000007 
032360' 


010562’ 
002212’ 
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032400' 


032523' 
032522' 


032400' 


bcs 20$ 

INC FATFLG 

MOV RO,R1 

ERRDF ERRNO, SFIERR,SFIMSG 
20$: 

MOV #7, T230SW 

MOV @T23PACKET ,R4 


sBR IF INIT WAS OK 
BUMP COUNT 


a 
s;CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 


TRAP CSEROF 
-WORD 301 

«WORD SFIERR 
«WORD SFIMSG 


;SET ORIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


FRAARAAHAERERAAEAEEEEEREARARERERAEAEEEEASESAEEEREREREBASEEEEREAAEESE 


; 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
FAAAAAEEAAEEERAAEEAREREAEEARERAEREEEARASEREROREREAEALEEESEEEEEASSEESES 


JSR PC,WRTCHR 

BCS 23% 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SFIMSG 
23%: TST EXTFEA 

BNE 5S0$ 

MOVB #200, T238S1 

MOVB #10, T238S0 

MOV @T23PK2,R4 

MOV R4, TSOBCRS) 

JSR PC,CHKTSSR 

BCS 30% 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T23SSR,PKTSSR 
308: CKLOOP 

MOV #7, T230SW 

MOV @T23PACKET,R4 


; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP = 


. WORD 

-WORD  WRTMSG 

«WORD SFIMSG 
;CHECK FOR EXTENDED FEATURES SW SWITCH 
;BR IF SWITCH IS ON 


;WRITE MISCELLANEOUS CONT/READ STATUS 


sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 


;WRITE SUBSYS MEM PACKET 
3 ISSUE COMMAND 

;WAIT FOR SSR 

;BR, IF NO ERROR 

s;ERROR, SAVE TSSR 

; BUMP COUNT 


SEQ 103 


;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 


TRAP CSERHRD 


-WORD 303 

“WORD T23SSR 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCiLPl 


;SET ORIVE NUMBER IN PACKET 
; SUBROUTINE NEEDS PACKET ADDRESS 


FRAREAEEEAEREEEEEEERAREREEREAEEEREEEEAEEREEEAASRESSEESEREREEEESESSDE 


‘ 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
FAAREARARERAEEAEEAEEEEEARERESEEEARARESOERASAEHERARESASEESASASESERESS 


JSR PC,WRTCHR 
BCS 50$ 
INC FATFLG 


; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 


N8 
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815 027346 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

816 027350 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
027350 104456 TRAP CSERHRD 
027352 000460 . WORD 304 
027354 005046' » WORD WRTMSG 
027356 011734' . WORD SF IMSG 

817 027360 50$: CKLOOP ;SCOPE LOOP 
027360 104406 TRAP CSCLP1 

818 027362 016501 000002 MOV TSSRCRS),R1L ;GET TSSR CONTENTS 

819 027366 032701 000100 BIT #OFL,R1 sCHECK FOR THE OFFLINE BIT SET 

820 027372 001006 BNE 60$ ;BR, IF OFFLINE (GOOD) 

821 027374 005237 002212' INC FATFLG ;BUMP COUNT 

825 027400 ERROF ERRNO, T230FL,SFIMSG ;OFF LINE SHOULD HAVE BEEN SET (BAD) 
027400 104455 TRAP CSEROF 
027402 000461 - WORD 305 
027404 033206' ~ WORD T230FL 
027406 011734’ .- WORD SF IMSG 

826 027410 60$: CKLOOP ;LOOP IF SELECTED 
027410 104406 TRAP CSCLP1 

827 027412 012703 032534' MOV #T23WD ,R3 sPOINTER FOR COMMANDS 

828 027416 011337 032470' 6S$: MOV CR3), T23PK2 ; TAPE MOTION COMMAND IN PLACE 

829 027422 012704 032470' MOV #T23PK2,R4 3R4 = POINTER TO PACKET 

830 027426 010465 000000 MOV R4,TSOBCRS) ; ISSUE COMMAND 

831 027432 004737 016150‘ JSR PC ,WAILTF _—s FOR SSR TO SET 

832 027436 016501 000002 MOV TSSR(RS), R1 ;GET TSSR CONTENTS 

833 027442 012702 100306 MOV #SSR!ISC! OFL!BIT1!BIT2, R2;SET ve EXPECTED 

834 027446 020102 CMP R1,R2 ARE THEY EQUAL 

835 027450 001406 BEQ 80$ BR, IF OK ESP. FUNCTION REJECT 

836 027452 005237 002212’ INC FATFLG ;BUMP COUNT 

840 027456 ERRHRD ERRNO, T23TM,EXPREC ;TSSR INCORRECT AFTER TAPE ier CMD 
027456 104456 TRAP CSERHRD 
027460 000462 .WORD 306 
027462 032742' . WORD T23TM 
027464 015374' . WORD EXPREC 

841 027466 80S: CKLOOP ;LOOP IF SELECTED 
027466 104406 TRAP CSCLP1 

842 027470 005723 TST CR3)+ sPOINT TO NEXT COMMAND 

843 027472 022713 177777 CMP #177777,CR3) ;END OF THE COMMANDS YET 

844 027476 001401 BEQ 90$ ;BR, IF DONE 

845 027500 000746 BR 65$ sMORE COMMAND(S) TO GO 

846 027502 90$: 

847 027502 ENDSUB 3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
027502 L10044; 
027502 104403 TRAP CSESUB 

848 027504 023727 002212' 000017 CMP FATFLG,#15. ;IS ERROR COUNT AT 25 

849 027512 103402 BLO 999$ ;BR, IF LESS THAN 25 

850 027514 004737 017104' JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

851 027520 9995; 

852 

853 3+ 

854 ; 

a ;TEST 3, SUBTEST 2 

3 

857 , ;VERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE 

858 ;SWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE 

€59 ;BYTE COUNT CRECORD SIZE) VARIES FROM 20 THROUGH 64K 


860 sIN VARYING INCREMENTS (DEPENCING UPON WHETHER OR NOT 


027610 
027614 
027616 
027622 
027624 
027624 
027626 
027630 
027632 


013737 
012704 


033774' 


015674° 
002212" 


002172' 
032360" 


010562' 
002212’ 
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032400' 


sTHE OIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 
sMODE>. THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 
sRECORDS “— IS REWOUND AFTER THE FINAL RECORD IS 
1WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED 

sIN THE DATA BUFFER, AFTER EACH BLOCK IS WRITTEN, THE 
1TSSR_AND TSBA REGISTERS, THE MESSAGE BUFFER, AND THE 
sRAM CONTENTS ARE CHECKED. (THE RAM CONTENTS ARE CHECKED 
sUSING THE WRITE SUBSYSTEM MEMORY COMMAND. 

3 


3 
a 
: 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
73.2: 


TRAP Cs68SU8 
MOV FRESIZ,R1 sGET SIZE OF AVAILIABLE MEMORY 
CLC sCLEAR THE CARRY BIT 
ROL R1 sMAKE INTO BYTES 
MOV R1, T235RSZ pI | IN TEST FOR USE LATER 
JSR PC, T23REST sSET COMMAND PACKET 
JSR PC, T23RTS sRESTORE PACKET 
JSR PC, T23SRT2 sSET UP OTHER COMMAND PACKET 


F SSSSSSHSHSSSASSSEASSSESSSSOSSEESESEESESSEHESEEEEEHESEESEEEEEEEEEEEEEEES 


; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


° 
FSSOSSOSHESSASHESSEEEEESEEEHESEOEHEESEEESEHEESEEEEESESEHESESEEEEEHEEEEE 


JSR PC, SOF INIT 100 INITIALIZE ON CONTROLLER 

BCS 20% ;BR IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO, SF IERR,S© IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
«WORD 307 
-WORD  SFIERR 

208 «WORD SF IMSG 
MOV UNITN, T230SW sLOAD UP SELECTED UNIT NUMBER 
MOV @T23SPACKET ,R4 


s SUBROUTINE NEEDS PACKET ADORESS 


FSSSSSSHSSESSHSSSSSSSSEEHSHEEHEESSHEEESESHESEHOHSESESHESLEEEHEHHHEEEEEEEE 


' 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


i 
FSSSSSSSSSSSHHSHSHSSESSHESSSEEHSESESHEESESSEOHEEESESEEHEEEEEEEEESEEEOEEEE 


JSR PC ,WRTICHR 1ISSUE WRITE CHARACTERISTICS 
ecs 23% sBR, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 1 SAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRITMSG, SF IMSG sWRITE CHARACTERISTISC oe 
CSERMRD 
MORO 308 


SEQ 105 


eS; 


a ERStee wate SpArk 


027634 
027634 


027636 
027642 
027646 


10440¢ 


004737 
012703 
013737 


012737 


033525" 
015374" 


104406 
020327 
002114 
004737 
012737 
112737 
112737 


010714" 
000024 


003114' 032512’ 


007576 
033774° 


000000 0632523' 


23s: 


CKL OOP 
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sLOOP IF SELECTED 


TRAP CsCLPl1 


FPSOSSOSSSSOHESSESSESESEASESHEHOESEEEEEEEEEHOHEEEESEEESEEEEEEEEEEREOEES 


i 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


i 
LT SSSOLSOSSEEESSSSSESESSEESESEESESOESESEEESOEESEESEEEESEEEEEHEEEHEREEEEES 


658: 


JSR 
MOV 
MOV 


PC .REWINOD 
#20. ,R3 
FREE, T23w8 


sCALL THE TAPE REWIND 
sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADORESS 


: 
sWRITE DATA,CVvC*1,ACK COMMAND 


653: 


#140005, T25PK3 
#140005, T23wRT 
#4000 , T23wRT 
@T23PK3,R4 
R3,RO 

PC .FILLMEM 
R3,T23SZ 
R4,TSOB(RS) 

PC ,WAITF 
TSSR(RS),R1 
@SSR ,R2 

R1,R2 


803% 
PC, T2SCHK 


TSBACRS),R1 
@T23BFR,R2 


90 
FATFLG 
ERRNO, T23B8A,EXPREC 


R35,07376 


@0,1235851 


sWRITE DATA,CvC*1,ACK COMMAND 
sSETUP FOR RETRY COMMAND 

sMAKE IT A RETRY 

sSET UP R4 WITH PACKET ADORESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
1SET UP EXPECTED 
sARE THEY EQUAL 


OK 
sCHECK SPECIAL CONDITION 
sLOOP IF SELECTED a 


sGET TSBA CONTENTS 

sSET UWP EXPECTED 

sSET TO END OF MESSAGE BUFFER 
sCHECK FOR EXTENDED FEATURES Sw SET 
sBR, IF IT NOT SET 

:BUPP R2 FOR EXTRA DATA 

sARE THEY EQUAL 


CscLP1 


BR, IF TSBA IS CORRECT 

:8U9" COUNT 

sTSBA WAS NOT CORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 309 
-WORD IT23BA 
-WORD EXPREC 


sLOOP IF SELECTED 
RAP CSCLP1 


1ONLY CHECK RAM UNTIL IT FIAL 
sIT WRAPS AROUND ETC. 

iMAKE SURE PACKET AND DATA ARE CLEAN 
sSTARTING RAM ADDRESS 

sSTOP INTERNAL TSVOS DI4SGNOSTICS 
sSIZE OF RAM READ 


SEQ 106 


TEXT“ st*ERESE ALTE Sahih 


967 
968 


012704 
010465 
004737 
103407 
010001 
005237 
104456 


000466 
033577" 
011746" 


033065° 


032470° 
000000 
016236’ 


002212" 


033774' 


032422° 


002212" 


032524’ 
032524' 


000400 
032524° 


001750 
032520’ 


177776 
027646: 
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928: 


1008: 


1108: 


1153: 


1208; 


D9 
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@T23PK2 ,R4 

R4, Ra. TSDB(RS) 

ot 

RO,.R1 

FATFLG 

ERRNO, T23WSS,PKTSSR 


PC, T23RT2 
0256. ,123S2 


R4, TSOBCRS) 

PC, CHKTSSR 

1008 

RO,R1 

FATFLG 

ERRNO, T235WSS,PKTSSR 


R1 
R2 
T238FR+20,R1 


ERRNO, T23RNC ,EXPREC 


T23S2 
T23S2 
R35,R1 
#256. ,R1 
T23S2,R1 
95 


SEQ 107 


sSET R4 WITH PACKET ADDRE 


Hage YELL" aaBOuat? Fee 2 


TO SET 
s6R, IF NO ERRORS IN TSSR 
sSAVE TSSR 
sBUMP COUNT 
:TSSR BAD AFTER WRITE SUB SYS MEM 
TRAP CSERHRD 
. WORD 310 
. WORD T23wSS 
.WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CscLPl 


sMAKE SURE PACKET AND DATA ARE CLEAN 
sSTARTING RAM ADDRESS 

sREAD RAM COMMAND FOR WRITE SUB SYS M™. 
sSIZE OF RAM READ 

sSET R4 WITH PACKET ADDRESS 

s ISSUE WRITE SUB SYS MEM COMMAND 
sCHECK TSSR AND WAIT FOR SSR TO SET 
:8R, IF NO ERRORS IN TSSR 


sSAVE TSSR 

sBUMP COUNT 

:TSSR BAD AFTER WRITE a * — MEM 

CSERHRD 

"MORO 3il 
-WORD T23wSS 
WORD PKTSSR 

sLOOP IF SELECTED 
TRAP Csci PL 

sCLEAR REGISTER 

sCLEAR REGISTER 

sPICK UP BYTE READ FROM RAM 

sSET UP EXPECTED 

+IS RAM DATA CORRECT 

BR, IF OK CEQUAL ) 

sBUMP COUNT 

sRNC*RAM NOT CORRECT 
TRAP CSERHRD 
«WORD 312 
«WORD T23RNC 
-WORD EXPREC 

sLOOP IF SELECTED 
TRAP CscLP1 


s;BUMP PAM ADORESS TO BE CHECKED 
sBUMP RAM ADDRESS TO BE CHECKED 
sGET SIZE OF RECORD 

sF IGURE OUT END RECORD ADORESS 
sAT =ND OF RAM CHECK YET 

sBR, IF MORE TO CHECK 

sNEXT RECORD SIZE/DATA PATTERN 
sIS R3 OVER MAX RECORD SIZE 

sIF RECORD SIZE IS TOO BIG QUIT 
sEND OF SUBTEST MAX RECORD SIZE 
sBR, IF COMPLETED 

:00 MORE RECORDS 


TSv? 


- HARDWARE 


TEST 3: BASIC WRI 


030370 
030370 
030370 
030372 
030376 


033016' 
011746" 


104403 
023727 
103402 
004737 


RITE DATA 


002212' 
017104’ 


000017 


033702’ 
033774’ 


0156 4° 
002212' 


032470° 


>, 
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JSR PC, T23RTS 

JSR PC, T23SRT2 

MOV #102010, T23PK2 

MOV @T23PK2 ,R4 

MOV R4,TSOBCRS) 

JSR PC ,CHKTSSR 

bcs 308 

MOV FO, R1 

INC ATFLG 

ERRHRD ERRND T2SAUN,PKTSSR 
1308: 

ENODSUB 

CMP FATFLG,@15. 

BLO 999% 

JSR PC ,CKDROP 
999%: 


3° 
; 
sTEST 3, SUBTEST 3 


SEQ 108 


sRESTORE PACKET 

sCLEAN UP PACKET 

sREWIND (POSITICi+) COMMAND 
sLOAD R4 WITH PACKET ADDRESS 
sISSUE REWIND COMMAND 

sWAIT FOR SSR TO SET 

sBR, IF TSSR IS OK (GOOD) 
sSAVE TSSR CONTENTS 

sBUMP COUNT 


:TSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 


. WORD 313 
WORD T23RWN 
-WORD PKTSSR 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10045: 
TRAP CsEsuB 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


; 
sVERIFIES THAT WRITE DATA COMMANOS WITH CvC=1 AND THE 


sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. 


THE TEST 


sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
sTHE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 


BGNSUB 
JSR PC, T23REST 
JSR PC, T23RT2 


3 >>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
73.3: 


FPSSASSASSEHSARSSESESEHHEEHEOSEASESESASSEHESHEHESHSHHEHHEEESHEEHEAEESEEHEEE 


’ 
s ISSUE CONTROLLER. “SOFT” INITIALIZE 


‘ 
FSSSSSHHSHSSSHSEHHSSHSSEEESHEESESESSHEHSESASSEHESESHESESFHSEHAESEEESHEEEESKESEEEE 


JSR PC,SOF INIT 

BcS 20% 

INC FATFLG 

MOV RO,R1 

ERROF ERRNC,SFIEYR,SFIMSG 


20%: 


TRAP Cs8SUB 

sSET COMMAND PACKET 

sSET UP OTHER COMMAND PACKET 

- CARRY BIT CLEAR IF ERROR 

300 INITIALIZE ON CONTROLLER 

s8R IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 314 
«WORD SFIERR 
-WORD SFIMSG 


TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 


1069 030426 013737 002172’ 
1070 030434 012704 032360’ 
1071 
1072 
1073 
1074 


010562’ 
002212" 


012703 
013737 


000024 
003114’ 


012737 


017324' 
032516’ 
000000 


034062’ 


002212’ 
104456 
033525 
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032400' 


032512’ 


032510' 
032532' 
032532’ 


MOV 
MOV 


UNITN, T230SW 
@T2SPACKET,R4 


sSET UP UNIT NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


POPUP rrrrrrrrrrirririririiriritititiiTitTitiiiitiity 
: 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


‘ 
FSSOHASAHASASEASASEESEAEEESESEEEEEESEEEHEEDESEREDEESEEEEEEEREEAADES 


JSR PC,WRTICHR 

6CcS 23% 

INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRTMSG,SFIMSG 
23s: 

MOV @20.,R3 
65$: MOV FREE, T23wB 


s ISSUE WRITE CHARACTERISTICS 
:6R, IF COMMAND ISSUED OK 
;BUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC —— 


CSERHRD 
-WORD 315 
-WORD WRTMSG 
«WORD SFIMSG 


sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FPSSHASSHSSHHESEESESESAEAEESESESASESEEEAAEAEHOHEEEEEEHESAAEOEEEEEESE* OB 


i 


i 
F FSSSSSSSASHESESESEASASESHSEEESEEHEEEEEESEHDESEEEEEHAESEEKOOESEEEAEEESEOEEE 


MOV #150005 , T23PK3 
MOV #150005, T23wRT 
BIS ©4000, T23WRT 
MOV @T23PK3,R4 
MOV R3,RO 
JSR PC.FILLMEM 
MOV R3,T23SZ 
MOV R4, TSDBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 80$ 
JSR PC, T23CHK 

80$: CKLOOP 
MOV TSBACRS),R1 
MOV @T23BFR,R2 
ADD #16,R2 
TsT EXTFEA 
BEQ 85% 
ADD @2,R2 

85$: CMP P1,R2 
BEQ 90% 

Ni FATFLG 


INC 
ERRHRD ERRNO, T23BA,EXPREC 


sWRITE DATA,CVC*1,ACK,SWB COMMAND 
sSETUP FOR RETRY COMMAND 

sMAKE IT A RETRY 

sSET UP R4 WITH PACKET ADORESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sCHECK SPECIAL CONDITION 

;LOOP IF SELECTED _— 


:GET TSBA CONTENTS 

sSET UP EXPECTED 

sSET TO END OF MESSAGE BUFFER 

sCHECK FOR EXTENDED FEATURES Sw SET 

38R, IF IT NOT SET 

sBUMP R2 FOR EXTRA DATA 

sARE THEY EQUAL 

BR, IF TSBA IS CORRECT 

sBUNP COUNT 

31 3BA WAS NOT CORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 316 
-WORD T23BA 


CsCLP1 


SEQ 109 


TSV7 -_HARDWARE 
TEST 3: 


BASIC 


rESTS 


WRITE DATA 


015374' 


0004 
033577' 
011746' 


104406 
004737 
012737 


033577" 


033065’ 
015374' 


104406 
005237 
005237 
010301 


007376 
033774' 


002212' 


033774' 


002212’ 


032422' 


002212’ 


032524' 
032524’ 


MACRO 1113 


90%: 


032524' 


923: 


032524’ 
032522' 
032523’ 


953%: 


100$: 


110%: 


G9 
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R3,07376 


FATFLG 
ERRNO, T23WSS,PKTSSR 


PC, T23RT2 
#256. , T23S2 
#1, T238S0 


PC,.CHKTSSR 

100$ 

RO,R1 

FATFLG 

ERRNO. T23WSS,PKTSSR 


R1 


Re 
T23BFR+20,R1 
R3,R2 


G 
ERRNO, T23RNC ,EXPREC 


T23S2 
T23S2 
R3,R1 


. WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sONLY CHECK RAM UNTIL ITS FULL 
sIT WRAPS AROUND ETC. 
sMAKE SURE PACKET AND LATA ARE CLEAN 
sSTARTING RAM ADDRESS 
sSTOP INTERNAL TSVOS DIAGNOSTICS 
sSIZE OF RAM READ 
sSET R4 WITH PACKET ADDRESS 
s ISSUE WRITE SUB SYS MEM COMMAND 
sCHECK TSSR AND WAIT FOR SSR TO SET 
:BR, IF NO ERRORS IN TSSR 
sSAVE TSSR 
sBUMP COUNT 
3TSSR BAD AFTER WRITE a 2 srs MEM 
CSERHRD 
TWORO 317 
- WORD T23WSS 
.WORD PKTSSR 


;LOOP IF SELECTED 
CsCLP1 


TRAP 
sMAKE SURE PACKET AND DATA ARE CLEAN 
sSTARTING RAM ADDRESS 
sREAD RAM COMMAND FOR WRITE SUB SYS M. 
sSIZE OF RAM READ 
sSET R&4 WITH PACKET ADDRESS 
s ISSUE WRITE SUB SYS MEM CMD (READ RAM) 
sCHECK TSSR AND WAIT FOR SSR TO SET 
3BR, IF NO ERRORS IN TSSR 


sSAVE TSSR 

sBUMP COUNT 

;TSSR BAD AFTER WRITE ~~. os MEM 

CSERHRD 

THORO 318 
-WORD T23wWSS 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CscLP1 


sCLEAR REGISTERS 

;CLEAR REGISTERS 

sPICK UP BYTE READ FROM RAM 
;SET UP EXPECTED 

sSWAP BYTES 

3IS RAM DATA CORRECT 

;BR, IF OK CEQUAL) 

;BUMP COUNT 

sRNC*RAM NOT CORRECT 


TRAP CSERHRD 

-WORD 319 

-WORD T23RNC 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


sBUMP RAM ADDRESS TO BE CHECKED 
sBUMP RAM ADDRESS TO BE CHECKED 
sGET SIZE OF RECORD 


SEQ 110 


- HARDWARE T 
3: BASIC WR 


031210 


031210 
031210 
031210 
031212 
031216 
031222 


031226 


S00 
033016' 
011746’ 


104403 
023727 
103402 
004737 


104402 
004737 
004737 
004737 


004737 


TRE ATR 


000400 
032524' 
001750 
032520' 
177776 
030470' 
033774' 
102010 
032470' 


000000 
016236' 


002212’ 


002212' 
017104° 


033702’ 
034036’ 
033774’ 


015674' 
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032470' 


000017 


115$: 


120%: 


130$: 


9998: 


3¢ 


#256. ,R1 
T23S2,R1 
953 


#1000. ,R3 
R3, T23RSZ 


120% 
R3,065534, 
1208 

65% 


PC, T23RT2 

#102010, T23PK2 
@T235PK2,R4 

R4, TSOBCRS) 
PC,.CHKTSSR 

130$ 

RO,R1 

FATFLG 

ERRNO, T23RWN,PKTSSR 


FATFLG,@15. 
999% 
PC ,.CKDROP 


; 
sTEST 3, SUBTEST 4 


i 

;VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE 
sFIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 
;THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 


8° 


BGNSUB 
JSR 


JSR 
JSR 


PC, T23REST 
PC, T23RTS 
PC, T23RT2 


sFIGURE QUT END RECORD ADDRESS 
sAT END OF RAM CHECK YET 

sBR, IF MORE TO CHECK 

sNEXT RECORD SIZE/DATA PATTERN 
sIS R3 OVER MAX RECORD SIZE 

;IF RECORD SIZE IS TOO BIG QUIT 
sEND OF SUBTEST MAX RECORD SIZE 
sBR, IF COMPLETED 

300 MORE RECORDS 


sCLEAN UP PACKET 

sREWIND (POSITION) COMMAND 
sLOAD R4 WITH PACKET ADDRESS 
s ISSUE REWIND COMMAND 

sWAIT FOR SSR TO SET 

sBR, IF TSSR IS OK (GOOD) 
sSAVE TSSR CONTENTS 


;BUMP COUNT 
sTSSR IS INCORRECT ee 


3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10046: 
TRAP CsESUB 
3IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
173.4: 


TRAP CsBSUB8 
;SET COMMAND PACKET 
sRESTORE PACKET 
sSET UP OTHER COMMAND PACKET 


FSSSOSSHSASESHASEHEHASEHAESSESEAEEASEEEEESSEESAASESAEEHEEESESEHESEEESEEEEE 


‘ 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
FPMSSSSESHESEHSESOESEEHHSASEASESEHSEESEHSEEEHEESESHEEEESEEESEESASHESEEEEESEEE 


JSR 


PC, SOF INIT 


3:00 INITIALIZE ON CONTROLLER 


SEQ 111 


TSV7 - HARDWARE TESTS 1-8 
BASIC WRITE DATA 


TEST 8: 


031232 
031234 


031310 


° 
031410 


013737 
012704 


012737 


011746’ 
104406 


104403 
023727 


002172' 
032360’ 


010562" 
002212’ 


002212' 


19 
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032400' 


032510' 
032512' 
032512’ 
032516' 


* 000017 


208: 


BCS 


MOV 
MOV 


20% 
FATFKLG 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T230SW 
@T23PACKET,R4 


J SPAHAASAASHAHSSESERHASALESEEAESAAASESEEESSEEASASEEEESEEEEAAEEEEEEEEEEDE 


i 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


a 
FSSHAHAAAASAAAAASSEASHHEAEEASESEAHEESEFESESEAESESAEEEEEEEEAESEEEEAEEEEES 


MOV 
ERRHRD 


PC,WRTCHR 
233% 
FATFLG 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


s6R IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 321 
-WORD SFIERR 
«WORD SFIMSG 

sSET DRIVE NUMBER IN PACKET 

s;SUBROUTINE NEEDS PACKET ADDRESS 

s ISSUE WRITE CHARACTERISTICS 

3BR, IF COMMAND ISSUED OK 

sBUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 


FSSSSSHAHAHASHASHASSSHESSEASESESEASASESEAASEASEESSEESESEEEAESESEEEAZLEOE 


‘ 
sWRITE DATA, ACK, ILLEGAL BITS 


é 
FFSSSASSASASSSSHSSSHHHSHEASCHSEOESSSEESEEAEESASASESEHESHESESHEEEEEEEEEEE 


23%: 


80$: 


#104405, T23PK3 


@T23PK3 ,R4 
R4,TSOBCRS) 

PC ,WAITF 

TSSRC(RS),R1 
@SSRISC!BITLIBIT2,R2 
R1,R2 

80$ 

FATFLG 

ERRNO, T23TM,PKTSSR 


FATFLG,@15. 


sWRITE DATA, ACK, ILLEGAL BITS 

;SET UP WRITE BUFFER ADDRESS 

sMAKE ADORESS OOD CILLEGAL ) 

3SET UP BUFFER SIZE 

3R4 = POINTER TO PACKET 

3 ISSUE COMMAND . 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

3;68R, IF OK ESP. FUNCTION REJECT 

sBUMP COUNT 

:TSSR INCORRECT AFTER WRITE COMMAND 
TRAP CSERHWRD 
. WORD 323 
. WORD T23T™ 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CsCLPlL 


3>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 
L10047; 
TRAP CsESUB 
3IS ERROR COUNT AT 25 


SEQ 112 


TSV7 - HARDWARE TESTS 1-8 
TEST 3: BASIC WRITE DATA 


031416 
031420 
031424 


031424 
031424 
031424 
031426 
031432 
031434 
031440 
031444 
031450 


031454 
031460 
031462 
031466 
031470 
031470 
031472 
031474 
031476 
031500 
031500 
031506 


031512 
031516 


031532 


103402 
004737 


004737 
103407 
005237 
010001 


104455 
000504 
003642' 
011734' 


013737 
012704 


004737 
103407 
005237 
010001 


104456 
000505 
005046 ' 


017104° 


003126' 
031754' 
033702’ 


034036' 
033774’ 


015674' 
002212’ 


002172' 
032360’ 


010562’ 
002212’ 


JI 
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032400' 


BLO 
JSR 
999$: 


3¢ 


999% ;BR, IF LESS THAN 25 
PC ,CKDROP sTRY TO DROP THE UNIT 


a 
sTEST 3, SUBTEST 5 


; 

sVERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
; THE PROPER ERROR STATUS WITHOUT MOVING TAPE 


BGNSUB 


10$: JSR 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T3.5: 


: TRAP 
NXMFLG 3:00 WE HAVE IT? 
10$ 3BR, IF ENOUGH 
90$ sSKIP THIS TEST IF NOT 
PC, T23REST 3SET COMMAND PACKET 
PC, T23RT3 sRESTORE PACKET 
PC, T23RT2 sSET UP OTHER COMMAND PACKET 


J PSAAEAAEASASEAEEAASADASESASEEESEEEEADESEARESEREEEEEEEEDEEEEEEEEEEE 


; 
sISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


J PPAASAAEHASEASSEAAESASSAHAESEEEASEHAEESEEADRSEEAKEEEEEEODEEEDEEEDELE 


208: 
MOV 
MOV 


CsBSUB 


PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
20$ 3;BR IF INIT WAS OK 
FATFLG ;BUMP COUNT 
RO,R1 sCONTENTS OF TSSR REGISTER 
ERRNO, SF IERR , SF IMSG sFATAL ERROR TSSR WAS ~~ 
- WORD 
. WORD 
- WORD 
UNITN, T230SW sSET ORIVE NUMBER UP 
@T23PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


j PAAR EESSEEEESEAEEEAESAEEEDAESEEEEEEESESEDEEEEDEEDEEEEEDREDEEDES 
3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
§ OOOO O4666664606666466466066686664664600660646646060664646460664666464604046068064400886 


MOV 
ERRHRD 


PC,WRTICHR s ISSUE WRITE CHARACTERISTICS 

123% sBR, IF COMMAND ISSUED OK 

FATFLG sBUMP COUNT 

RO,R1 sSAVE CONTENTS OF TSSR 

ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC — 
- WORD 
. WORD 


WRTMSG 


SEQ 113 


K9 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 0O1-FEB-84 17:54 SEQ 114 
TEST 3: BASIC WRITE DATA 

3330 031534 011734' .WORD SFIMSG 

1331 FAMAAAAHAAEHASEAAESAESESESEEEERARAAASABRERERARAAEAEEEAEREAEAEEEEEAEEES 

1332 3 

tt} sWRITE DATA, ACK, CvC#1 

3 

1335 FPRAAAHEAARSEEASEEHAASASHERESAADAREREAAAALERESEERESEAESEEAEAESEAEDEEEE 

1336 

1337 031536 123%: 

1338 031536 005737 002216' TST EXTFEA sCHECK FOR EXTENDED FEATURES SW SWITCH 

1339 031542 001026 BNE 130$ ;6R IF SWITCH IS ON 

1340 031544 005237 002216' INC EXTFEA sONLY ONE TIME 

1341 031550 112737 000200 032523' MOVB #200, 7238S1 sWRITE MISCELLANEOUS CONT/READ STATUS 

1342 031556 112737 000010 032522’ MOVB #10, T238S0 sFUNCTION SELECTION BIT C TURN ON EXTFEA HW SWITCH) 

1343 031564 012704 032470' MOV @T23PK2,R4 sWRITE SUBSYS MEM PACKET 

1344 031570 010465 000000 MOV R4,TSOBC RPS) : ISSUE COMMAND 

1345 031574 004737 016236' JSR PC,CHKTSSR ;WAIT FOR SSR 

1346 031600 103407 BCS 130$ ;BR, IF NO ERROR 

1347 031602 010001 MOV RO,R1 sERROR, SAVE TSSR 

1348 031604 005237 002212’ INC FATFLG ;BUMP COUNT 

1352 031610 ERRHRD ERRNO, T22SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
031610 104456 TRAP CSERHRD 
031612 000506 -WORD 326 
031614 026130' -WORD T22SSR 
031616 011746' . WORD PKTSSR 

1353 031620 130$: CKLOOP ;LOOP IF SELECTED 

— 031620 104406 TRAP CSCLP1 

1355 031622 012701 160000 MOV #160000 ,R1 3NXM LOW ADORESS START 

1356 031626 012702 177776 MOV 177776,R2 sLIMIT CHECK FOR NXM (HIGHEST) 

1357 031632 004737 016276’ JSR PC, XNXM ;LO00K FOR NXM ADDRESS 

1358 031636 103045 Bcc 80$ ;B8R, IF NON FOUND 

a. 031640 010137 003130’ MOV R1,NXMLO ;SET ADDRESS UP FOR TEST 

1361 

1362 031644 005037 032514' CLR T23WB+2 ;CLEAR OUT THE HIGH BITS AREA 

1363 031650 243: 

1364 031650 012737 140005 032510’ MOV #140005, T23PK3 sWRITE DATA, ACK, CvC=1 

1365 031656 013737 003130’ 032512’ MOV NXMLO, T23WB ;SET UP WRITE BUFFER ADDRESS 

1366 031664 012737 000100 032516’ MOV 064. ,T23SZ ;SET UP BUFFER SIZE 

1367 031672 012704 032510’ MOV @T23PK3,R4 3R4 = POINTER TO PACKET 

1368 031676 010465 000000 MOV R4,TSDOBCRS) s ISSUE COMMAND 

1369 031702 004737 016150’ JSR PC,WAITF ;sWAIT FOR SSR TO SET 

1370 031706 016501 000002 MOV TSSR(RS),R ;GET TSSR CONTENTS 

1371 031712 012702 104210 MOV OSC INXM! SSRIBITS, Re ;SET UP EXPECTED 

1372 031716 020102 CMP R1,R2 ;ARE THEY EQUAL 

1373 031720 001414 BEQ 80$ ;8R, IF OK ESP. FUNCTION REJECT 

1374 031722 005237 032514’ INC T23WB+2 ; BUMP TO NEXT ADDRESS BIT 

1375 031726 023727 032514' 000004 CMP T23WB +2, 04 ;CHECK TO SEE IF OVERFLOW INTO 19 BIT 

1376 031734 001345 BNE 24$ 3B8R, IF BITS 17 AND 18 

1377 031736 005237 002212’ 25%: INC FATFLG ;BUMP COUNT 

1381 031742 ERRHRD ERRNO, T23TM,PKTSSR ;TSSR INCORRECT AFTER WRITE COMMAND 
031742 104456 TRAP CSERHRD 
031744 000507 WORD 327 
031746 032742’ .~WORD T23T™ 
031750 011746' . WORD PKTSSR 


1382 031752 80$: CKLOOP ;LOOP IF SELECTED 


TSV7 -_HARDWARE TESTS 1-8 


veSr Se 


1433 


BASIC WRITE 


031752 
031754 
031754 
031754 
031754 
031756 
031764 
031766 
031772 


031772 
031772 
031772 
031774 
032000 
032002 
032006 
032012 
032016 


032022 
032026 
032030 
032034 
032036 
032036 
032040 
032042 
032044 
032046 
032046 
032054 


032060 


DATA 
104406 


104403 
023727 002212‘ 
103402 
004737 017104' 


005737 003126’ 
000137 032320’ 
004737 034036' 


004737 033702’ 
004737 033774' 


004737 015674' 
005237 007212’ 


013737 002172’ 
012704 032360' 


004737 010562' 


000017 


9 
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TRAP CSCLPI. 
90$: “ 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10050: 
TRAP CSESUB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
999$:;: 
3¢ 
3 
;TEST 3, SUBTEST 6 
3 
;VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
;BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 
sNONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 
;STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
;THAT TAPE IS ACTUALLY MOVED AND WRITTEN. 
ws 
BGNSUB p> >>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
73.6: 
TRAP CsBSuUB 
TST NXMFLG 3:00 WE HAVE IT? 
BNE 10$ ;BR, IF ENOUGH 
JMP 130$ ;SKIP THIS TEST IF NOT 
10$: JSR PC, T23RT3 sRESTORE PACKET 
JSR PC, T23REST 3SET COMMAND PACKET 
JSR PC, T23RT2 ;SET UP OTHER COMMAND PACKET 


032400' 


PUI VIII iii ititirivititirittiitiirtirrrtttittrttititiriiiiiitty 
; 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
FPSARAAASASAAASAASEHASASEASESOAAAEAERAAEAEEAEAEASERALELSEASEASEEEECEESD 


JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

BCS 20$ 3BR IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
WORD 328 


“WORD SFIERR 
"wORD SFIMSG 


MOV UNITN, T230SW ;SET ORIVE NUMBER IN PACKET 
MOV OT23PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


J FSSHSAAEASSSAAAASESERAAEASESSERASSEEAEAASASASHASAREEAAEASESAAAREREERE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


° 
{SAPARD AAHEASESDAEEASEEOOOEOEDEAOEEEAAOKAEOEODE4O4OOOEO4O4OEEEEEEEDEEESE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 


20$: 


SEQ 115 


TSv? 


- HARDWARE TESTS 1 


TEST 3: BASIC WRITE DAT 


1434 
1435 
1439 
1440 


032102 


032310 


103407 
005237 
010001 


104456 


000511 
005046' 
011734' 


012701 
012702 
004737 
103051 
010137 
012737 


012737 
013701 
162701 
010137 
012737 


2 
032742' 


002212’ 


160000 
177776 
016276' 


003130' 
000000 


032514' 
032514' 


002212' 


033774' 
034036' 
102010 
032470' 
000000 


016236' 


002212' 
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032514' 
032510' 


032516' 


032470' 


BCS 
INC 


MOV 
ERRHRD 


23% 
FATFLG 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


sB8R, IF COMMAND ISSUED OK 
;BUMP COUNT 


; SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP ats 


. WORD 29 
-WORD WRTMSG 
«WORD SFIMSG 


{FARAAARERASEAASERAAERADERAEAAREEEEEREREEEEAREEEEARABERABEARAAEAEEEDE 


a 
sWRITE DATA, ACK,CVC#=1 


° 
[FPR AAHRAEAERESEAAEREREAAEARAREREARERAREAARAAEAAAAREAASEESAESSSEEEEDRSD 


23$: 


24s: 


25%: 


80$: 


INC 
ERRHRD 


#160000 ,R1 
#177776,R2 
PC, XNXM 


00, T23WB+2 
#140005, T235PK3 
R1 


FATFL G 
ERRNO, T23TM, PKTSSR 


PC, T23RT2 

PC, T23RTS 

#102010, T23PK2 
@T23PK2 ,R4 

R4, TSOBCRS) 
PC,CHKTSSR 

130$ 

RO,R1 

FATFLG 

ERRNO, T23RWN,PKTSSR 


3NXM LOW ADDRESS START 

sLIMIT CHECK FOR NXM CHIGHEST) 
sL00K FOR NXM ADDRESS 

;BR, IF NON FOUND 

;SET ADDRESS UP FOR TEST 

;SET TO 16 BIT ADDRESS 


sWRITE DATA, ACK,CvC=1 

sHIGHEST MEMORY ADDRESS LOW BITS 
sSET ADDRESS A LITTLE LOWER 
sLOAD INTO THE PACKET 

3SET UP BUFFER SIZE (64K BYTES) 
3R4 = POINTER TO PACKET 

s ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

s;ARE THEY EQUAL 

;BR, IF OK ESP. FUNCTION REJECT 
;BUMP TO NEXT ADDRESS RANGE 
;CHECK TO SEE IF WE WENT TO HIGH 
;BR, IF NO OVER FLOW 


sBUMP COUNT 
:TSSR INCORRECT AFTER WRITE COMMAND 


TRAP CSERHRD 

-WORD 330 

-WORD T23TM 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CscLP1 


;CLEAN UP PACKET 

sRESTORE PACKET 

sREWINO (POSITION) COMMAND 

;LOAD R4 WITH PACKET ADDRESS 

s ISSUE REWIND COMMAND 

sWAIT FOR SSR TO SET 

;B8R, IF TSSR IS OK (GOOD) 

;SAVE TSSR CONTENTS 

;BUMP COUNT 

;TSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 


SEQ 116 


TSV7 - HARDWARE TESTS 1-8 
WRITE DATA 


TEST 3: 


BASIC 
032312 


032402 


032464 
032470 
032470 
032472 
032474 
032476 


032500 
032510 
032510 
032512 
032514 
032516 


032520 


032522 


000513 
033016' 
011746' 


104403 
023727 
103402 
004737 
004737 
103002 
000137 


104432 
001676 


100004 
032370' 
000000 


000010 
032402' 
000000 
000012 
000000 
000000 


002212' 
017104' 
016360' 
027146' 
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000017 


130$: 


999%: 


163$: 


FATFLG,#15. 
999$ 

PC ,CKDROP 
PC, TSTLOOP 
163$ 
T23L00P 


TST 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


g- 
.BLK 
T23PACKET: 


T23DATA: 


T230SW: .WORD 
T23BFR: .BLKW 


‘ 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


.BLKB 
T23PKe: 


T23PK3: 
T23WB: - WORD 
T23SZ: .WORD 
.E 

: 

T23RSZ: .WORD 
H 

3 

T23BFe2: 


10-<, -TSV2E7> 


100004 
— 


8. 
T23BFR 
0) 

10. 

te) 


0 
25. 


10-<, -TSV2E7> 


100006 
are 


6. 

10-<, -TSV2E7> 
100005 

0 

.¢) 

0 


0 


«WORD 331 
«WORD T23RWN 
«WORD PKTSSR 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10051: 
C$ESUB 


TRAP 
sIS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


:00 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 

sALL DONE THIS TEST 


TRAP CSExIT 
-WORD 1L10043-. 


sCOMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sWRITE COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 


sSIZE OF BUFFER CEXTENT) 


s;LARGEST TAPE RECORD IN BYTES 


SEQ 117 


TSV? -_HAROWARE TESTS 1-8 

TEST 3: BASIC WRITE DATA 
1546 032522 010 
1547 032523 200 
1548 032524 000000 
1549 032526 000000 
1550 
1551 
1552 032530 000000 
1553 032532 000000 
1554 
1555 
556 
1557 
1558 032534 190005 
1559 032536 100405 
1560 032540 102005 
1561 032542 177777 
1562 
1563 
1564 
1565 
1566 
1567 032544 127 122 
1568 032577 105 117 
1569 632664 127 122 
1570 032742 124 123 
1571 033016 122 145 
1572 033065 122 101 
1573 033140 124 125 
1574 033206 104 162 
1575 033261 124 123 
1576 033350 124 123 
1577 033452 103 126 
1578 033525 124 123 
1579 033577 127 122 
1580 033666 102 141 
1581 
1582 
15863 
1584 
1585 
1586 
1587 
1588 
1589 033702 
1590 033702 
1591 033706 012701 032360' 
1592 033712 012721 100004 
1593 033716 012721 032370° 
1594 033722 
1595 033724 012721 000012 
1596 033730 012721 032402’ 
1597 033734 005021 
1598 033736 012721 000024 
1599 033742 005021 
1600 0335744 012711 000000 
1601 033750 012702 
1602 035754 012762 
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T238S0: 
T238S1: 
T23S2: 
T23S3: 
’ 


3 
TO3TMP: 
T23WRT: 
3 


.EVEN 
s TAPE MOTION PACKET COMMAND VALUES 


T23wW0: 
T23WOR: 
T23CON: 


-BYTE 
-BYTE 
. WORD 
. WORD 


. WORD 
. WORD 


. WORD 
. WORD 
. WORD 
. WORD 


SEQ 118 


10 sB8SELO AREA 

200 sBSEL1 AREA 

0 sSEL 2 AREA 

0 sDATA AREA 

i?) s TEMPORARY REGISTER 
re) sRETRY COMMAND 


100005 sWRITE DATA (NEXT) 
100405 sWRITE DATA RETRY 
102005 sWRITE CONTINOUS 
177777 sENO OF DATA 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


TST23ID: 


ae 
é 
sROUTINE 


T23REST: 


000030 
177777 032402’ 64%: 


: .ASCIZ 


"WRITE Command Not Accepted’ 
‘EOT Not Found In 12000 4k Writes, (Use Shorter Tape )’ 


‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT 
‘TSSR Not Correct After WRITE Command Re ject’ 
‘Rewind (POSITION) Command Not Accepted’ 

"RAM Error, Correct Dete Pattern Not In Ram’ 
*TSSR Init. Failed After WRITE Command’ 
‘Drive 7 Select Failed To Set “OFL” In TSSR’ 


*TSSR Not Correct After WRITE DATA Command, SWB Bit Set’ 


*TSSR Not Correct After WRITE DATA Command, 


Creck A. Tape Offline: 


‘CVC Set, Didn’''t Reset VCK In Message Buffer’ 
*TSBA Not Correct After WRITE DATA Command’ 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 


-ASCIZ 


‘Basic Write’ 


TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


sSAVE THE REGISTERS 


@T23PACKET,R1 1START OF THE PACKET 
#100004 ,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK 
@T23DATA,(R1)> sADDRESS OF CHARAISTICS DATA BLOCK 
(R1)- sEXTENDED ADORESS 
#10. ,CR1)- sSIZE OF DATA BLOCK IN BYTES 
8 sADDRESS OF MESSAGE BUFFER 
L)e 
> of etal sLENGTH OF MESSAGE BUFFER 
1). 
@0,(R1) sSELECT DRIVE ZERO 
024. ,R sNUMBER OF LOCATIONS TO BE CLEARED 


2 
o177777, T23BF RF (R2) 


sALL ONES TO MESSAGE PUFFER 


TSv? 
TEST 


BASIC WERE DATS 


033762 
033764 
033770 
033772 


005742 
020227 
001371 
000207 


033774 
033774 
012701 
012721 


012721 


010337 


000000 


032510' 
100005 


032530° 
100000 


032412" 
000002 


020000 


000024 

003114’ 
032532" 
032510° 


017324° 
032516’ 
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032512" 
032510° 


T23RT2: 


T23RT3: 


@T23PK2 Ri 
#100006 ,(R1)-> 
@T23BF2,(R1)- 
(R1)-> 
@6.,(R1)> 
@T238F2,R1 
(R1)> 

(R1)> 

(R1) 

Pc 


@T23PK3,R1 
#100005 ,(R1)-+ 
(R1)> 

(R1)- 

(R1) 

PC 


SEQ 119 


sBUMP DOWN TO NEXT LOCATION 
1R2 AT ZERO YET 

sKEEP GOING UNTIL DONE 

sRE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WIT ACK 
sADORESS OF DATA BLOCK 


ADORESS 
sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


;RE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE TAPE. WITH ACK 

sADDRESS OF DATA BLOCK 

sEXTENDED ADORESS 

sSIZE OF DATA BLOCK 
sRE TURN 


i; ROUTINE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TEST 
- "SUBTEST 2E 3S 


L INPUTS: 


T23CHK: 


R1-TSSR 


SUBROUTINE SETS UP T235WRT FOR RETRY 


T23TMP 
@sc,R1 

FATAL 
T238FR+10,R2 
@x1.UNC ,R2 


@20.,R3 

FREE, T23wB 
@T23WRT, T23PKS 
@T23PK3,R4 
R3,RO 
PC,.FILLMEM 
R3,7T2352 


sSAVE THE REGISTERS 
sCLEAR LOCAL REGISTER 
sIS SC SET IN TSSR? 

sNO, YOU GOT PROBLEMS! 
sYES,GET XSTATL 

3IS UNC SET IN XSTAT1? 
sNO, CHECK COR 

sYES.00 WRITE DATA RETRY 
3IS COR SET IN XSTAT1L THEN? 
sYES SO RETRY 

sNO, YOU GOT PROBLEMS 
sRE TURN 


iSTARTING RECORD SIZE 

sSTARTING WRITE BUFFER ADDRESS 

iWRITE DATA RETRY COMMAND SETUP BY SUBROUTINE 
sSET UP R4 WITH PACKET ADDRESS 

sSET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

sSET UP RECORD SIZE IN PACKET 


TSv? 


- HARDWARE 
TEST 8: 


BASIC 


TESTS 1-8 
WRITE DATA 


010465 000000 
004737 016150’ 
016501 000002 
012702 000200 
020 


032530' 
000005 032530’ 


002212" 
032402' 


017104" 


012737 006166’ 
005037 003124' 
017176' 
046252’ 
016412" 
004737 021116’ 
012737 000005 002206' 


002170' 
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MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR,R2 
CMP R1,R2 
BEQ ExIT 
INC T2sTMP 
CMP oS, T235TMP 
BNE 4 

FATAL: INC FATFLG 
MOV T23BFR,R2 
ERRHRD ERRNO, SCHERR,PKTMES 
JSR PC ,CKDROP 
ENOTST 


s ISSUE COMMAND 
sWAIT FOR SSR TO SE; 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


3;BR, IF OK 
sTRY FIVE TIMES THEN EXIT 
;DONE FIVE YET? 


sNO GO AGAIN 
sBUMP COUNT 
;LOW ORDER MSGBUF 
3TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. WORD 332 
-WORD SCHERR 
.WORD PKTMES 
;OROP THE UNIT 
L10043: 
TRAP cserst 


-S8TTL TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


é 

sTHIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
sCOMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD ANDO EVEN 
SATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
sSPACE IS AVAILIABLE). AND BYTE-SWAP CONTROL ARE USED. THIS TEST 
:0F COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 


sREADING AND VERIFYING WRITTEN DATA. 


ALSO TESTED ARE PROPER 


s TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 


sLONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, 


TLLEGAL DATA 


sBUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 


sREAD COMMAND 
; 


» AND DATA BUFFERS IN NON-EXISTANT MEMORY. 


THE TEST 


3 
3 THE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS 


BGNTST 

MOV G€PRT1, EPRTSW 
CLR « TENABLE 

JSR PC ,KTOFF 

MOV @TST24ID,RO 
JSR PC, TSTSETUP 
JSR PC ,MEMCK 

MOV 5, LOOPCNT 


3° 
i 
sTEST 4, SUBTEST 1 
; 


T4:: 
;SET UP PRIMARY ERROR MESSAGE 
; TURN OFF KTil 
3 TURN KT11 OFF 
sASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
:CHECK FOR MEMORY 
sPERFORM 5 ITERATIONS 


;VERIFIES THAT A READ DATA COMMAND WITH THE CLEAR 


sVOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 


THE 


SEQ 120 


TSV7? - HARDWARE TESTS 
TEST 4: BASIC READ DA 


034312 
034312 
034312 
034312 
034314 
034320 
034324 
034330 


034432 
034436 
034440 


104402 
004737 
004737 
004737 
012737 


004737 
103426 


012727 
000000 
013727 
000000 


012737 
012704 


004737 
103407 
005237 


E10 


ae cronuene Acne teks 3'- -FEB-84 17:54 


046320' 
046454' 
046412’ 
176750 


015674" 


000250 
002116' 
177772 
177756 
044006 ' 
002212" 


000007 
043630' 


010562’ 
002212’ 


044006 ' 


043650’ 


SEQ 121 
;VOLUME CHECK (VCK) IS SET. ALL LEGAL 
sCOMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED 
3CI.E., IT IS VERIFIED THAT THE COMMAND IS REVECTED 
;0UE TO VCK BEING SET RATHER THAN ERRONEOUS DECODING 
;0F THE MODE FIELD. 
Hy 
s 
:- 
T24L00P 
BGNSUB 3>>>>>>>>>>>> BEGIN SORTEST >>>>>>>>>>>> 
T4.1: 
TRAP CsBSUB 
JSR PC, T24REST 3SET COMMAND PACKET 
JSR PC, T24RTS sSET UP OTHER COMMAND PACKET 
JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 
MOV 065000. »T240LY sLOAD UP DELAY ROUTINE 
FPAOHEASEEASAHEAEEOEEEEEEEEESEAESEEEEEEEEHEEEEEEEEEEEEROEEEEEEEEEES 
4 
s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; 
FOPOOHEEAOEEEEESEAEEEHESEEEEEESEESEEEEEEEEEEOEESEEEREEEEEEEEEDESEEES 
S$: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 20$ :BR IF INIT WAS OK 
DELAY 250 sDELAY AWHILE 
MOV @250,(PC)- 
. WORD 8) 
. WORD 1?) 
DEC Se ‘a 
BNE 
DEC "32¢P0) 
DEC 240Ly :BUMP DELAY COUNTER 
BNE 53 ;BR, IF MORE DELAY REQUIRED 
INC FATFLG sBUMP COUNT 
MOV RO,R1 CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SF IERF, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 401 
. WORD SF IERR 
. WORD SF IMSG 
208: 


MOV 07,T240SW sSET ORIVE NUMBER IN PACKET 
MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


FFSSSESESESEEASOSESEEEOHSEEEEHEEHESEEEEEEEEEHEEEHEEHEEEEEEEEEEEEDEEE 


: 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 

3 

PUPP OV Ir rrririiiirririiririiiiriiirrririititriitittT TTT itty 


JSR PC, ,WRICHR s ISSUE WRITE CHARACTERISTICS 
BCS 24s :BR, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 


Sy “AER RERS Babi cromunl"GRB RENERse9#-TER-O8 17:58 


test 4: 


1766 
1767 


BASIC 


034444 
034446 
034446 
034450 
034452 
034454 


010001 


104456 
000622 
005046' 
011734’ 
005737 
001044 


112737 


044527' 
011746’ 


104406 
012737: 
012704 


104406 
012703 


000007 
043630' 


010562’ 
002212’ 


000002 
000100 


002212' 


043776' 


043771' 
043770' 


043650’ 


243: 


MOV 
ERRHRD 


F10 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


EXTFEA 
508 


#200, T24BS1 

#10, T24BSO 

OT24PK2 ,R4 

R4, TSOBCRS) 
PC,CHKTSSR 

30% 

RO,R1 

FATFLG 

ERRNO, T24SSR,PKTSSR 


@7,T240SW 
@T24PACKET,R4 


SEQ 122 


sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC ——— 
"WORD 402 
. WORD 
SFIMSG 


. WORD 
sCHECK FOR EXTENDED FEATURES SW SWIIc!! 
sBR IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/©EAD STATUS 


sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
sWRITE So PACKET 


sERROR, SAVE TSSR 


3; BUMP COUNT 

:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRA’ Pp CSERHRD 
-WORD 403 


-WORD T24SSR 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCLP1 


3SET ORIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


PeU IVI IIVI IIT iitiiiiiiiiiriiiiiiitiiiiiiitirritrrtirtiiii titi iit 
3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 


3 
FSSSSNSSSHSASSSSSSASHASHASHSEASHESESHEOHESEEESESASESESESESEEEEEEHEEEEEEEE 


50$: 


60$; 


PC,.WRICHR 
50$ 


FATFLG 
RO,R1 
ERRNO ,WRTMSG, SF IMSG 


TSSRCRS),R1 
OOFL ,R1 


LG 
ERRNO, T240FL , SF IMSG 


@T24RN,R35 


s ISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISSUED OK 
sBUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
404 


-WORD  WRTMSG 
-WORD SFIMSG 
+SCOPE LOOP 


TRAP Csc.P1 
;GET TSSR CONTENTS 
s;CHECK FOR THE OFFLINE BIT SET 
:BR, IF OFFLINE (GOOD) 
UMP COUNT 


38 
sOFF LINE SHOULD HAVE on > ger (BAD) 
CSERDF 
"WORD 405 


«WORD T240FL 
-WORD  SFIMSG 


TRAP CsCLP1 


;LOOP IF SELECTED 
sPOINTER FOR COMMANDS 


TSV7 - HARDWARE 
TEST 4; 


1813 


BASIC 


034734 
034734 
034734 
034736 
034742 


ESTS 


T ata -8 
READ DA A CFORWARD 


011337 
012704 
010465 
004737 
016501 


045043' 
011746’ 


104406 
005723 
022713 
001401 
000746 


104403 
023727 
103402 
004737 


104402 
004737 
004737 


177777 


002212' 000017 
017104’ 


046454’ 
046320' 


G10 
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ND REVERSES 
ee ee nN 
TAPE READ COMMAND IN PLACE 
-cbchensabibebeniabamedennmennbneseeseonsedhbabnennnnennenietnen 
65$: MOV (R3), T24PK3 sTAPE READ COMMAND IN PLACE 
MOV @T24PK3,R4 sR4 = POINTER TO PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS), R1 sGET TSSR CONTENTS 
MOV @SSR!SC!OFL!BITL!BIT2,R2 3SET UP EXPECTED 
CMP R1,R2 3sARE THEY EQUAL 
BEG 80% ;8R, IF OK ESP. FUNCTION REJECT 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24TM,PKTSSR iTSSR INCORRECT AFTER ae wo” Camen 
TWORD 406 
WORD T24T 
-WORD PKTSSR 
803: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
TST CR3)> ;BUMP TO NEXT COMMAND 
CMP 9177777,(R3) sEND OF THE COMMANDS YET 
BEQ 90$ ;BR, IF DONE 
nes BR 65$ sMORE COMMANO(S) TO GO 
, ENDSUS 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10053: 
TRAP CsESUB 
CMP FATFLG,@15. ;IS ERROR COUNT AT 25 
BLO 9998 ;BR, IF LESS THAN 25 
JSR PC,CKDROP ;TRY TO DROP THE UNIT 
999%: 
3¢ i 
a 
;TEST 4, SUBTEST 2 
o 
sVERIFIES THAT READ FORWARD COMMANDOS WITH SwWB=-0 
sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN 
sLENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
sAGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS 
s(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
sEACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 
sEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 
sOCCUR. 
Q 
; 
+ 
BGNSUR 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>»>»> 
74.2: 
TRAP CsBSUB 
JSR PC, T24RTS ;SET UP OTHER COMMAND PACKET 


JSR PC, T24REST +SET COMMAND PACKET 


SEQ 123 


TSV7 - HARDWARE T 
TEST 4: BASIC RE 


1914 
1915 


034746 


004737 046412’ 


015674' 
002212’ 


013737 
012704 


002172’ 
043630' 


010562’ 
002212’ 


004737 010714' 
103407 
010001 


005237 002212’ 


045116’ 
011746' 


104406 


is 


043650’ 


H10 


RD BatA°cFORWARD AND REVERSES: Oe 17258 


JSR PC, T24RT2 sSET UP OTHER COMMAND PACKET 


J PSSEAAHSSSHEASSESESASSEEEAASESEESHEESSEAESESEEESEAEEEHESDEEAAEEEEEEEEEEES 


3 
sISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
J FSHAHAASAHHAASASEHESEHADEEESHASEEEHEAEEEEEHAEESESEEEEHAEAEASEEASEEESEEEAEEEE 


JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 

BCS 20% sB8R IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
«WORD 407 
-WORD SFIERR 

ase -WORD SFIMSG 
MOV UNITN, T240SW ;SET DRIVE NUMBER IN PACKET 
MOV @T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


f PARRA AEEEEEAESEEEEEEEEESEEEEEEEEEEESEEAEEEEAEREREEEDEREEEEESS 
3 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 

; 


J SFASSHEHASHHSAHHSSASESESEESEEESESESEEAEASESASESESESEEEESESESHEEEEESEEEEEESEEEE 


JSR PC,,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 24% ;BR, IF COMMAND ISSUED OK 
INC FATFLG s;BUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC oy 
. WORD 
- WORD 
- WORD 
24%: C“LOOP ;LOOP IF SELECTED 
TRAP 


FPSSSAHSSEHSSASHSEESSEASESESSOSSHEAESEHEESAESEEASESESESESESEESHEEESESESEEEESED 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 


FFSSSSSEHSASHSSESESSSESESSESSSSEHASHSSASSEHSESESESESHESSEEHSESESHAHHEASEESEEEE 


JSR PC ,REWINO sCALL TAPE REWIND COMMAND 

BCS 30% ;BR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED — 
. WORD 
. WORD 
. WORD 

30$: CKLOOP ;LOOP IF SELECTED 

TRAP 


CSERHRD 
408 


WRTMSG 
SF IMSG 


CsCLP1 


CSERHRD 
409 
T24RWN 
PKTSSR 


CscLPL 


SEQ 124 


TSV7 - HARDWARE TESTS 1-8 


TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


035064 
035070 
035072 
035076 
035100 
035102 
035106 
035106 
035110 
035112 
035114 
035116 
035116 
035120 
035124 


035230 
035232 


013701 
010102 
052702 


044633' 
015374’ 


104406 
012703 
013737 


012737 
012704 


005103' 
011746' 


104406 
005723 
022703 
001346 


104406 


000400 
003114' 


140005 
043760' 


017324' 
043766' 
000000 


002212’ 


000414 


I10 
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043762' 


043760' 


FPSAAASAHHSAHASEHAESEHEAAHSESEAAEAEAREEARESEEEAEAEEAAEEREEEEAEEOREREEE 


; 
sREAD MES-AGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


4 
J FH SARSEAAHAAAEREEEAKEAESAEAEEAEEAEEASEAEEREEEAEAAEEEAESSEEEDEDEREDRS 


40$: 


MOV T24BFR+6,R1 
MOV R1,R2 

BIS oBIT1,R2 
CMP R1,R 

BEQ 40$ 


INC FATFLG 
ERRHRD ERRNO, T24B0T ,EXPREC 


CKLOOP 
MOV #256. ,R3 
MOV FREE , T24RB 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 

sBR, IF EQUAL (OK) 


sBUMP COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
WORD 410 


"WORD T2460T 
"WORD EXPREC 
;LOOP IF SELECTED 


TRAP CsCLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FSSSSHSESSEHAAHASESSEESESEAEHASEAEEEEHESEAEHEEESEEEEASEEASERERESEEEEOEEED 


3 
sWRITE DATA,CVC=1,ACK COMMAND 


; : 
J PSSASAHHSEHHASHESAEEHEESEEEESEEESEEEEEEHOASASCEEOEEAEAEEESEDAEEEEOEEEE 


65%: 


758%: 


80$: 
1208: 


MOV #140005, T24PK3 
MOV @T24PK3,R4 
MOV R3,RO 

JSR PC,.FILLMEM 
MOV R3,T24SZ 
MOV R4, TSDBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR,R2 

CMP R1,Re2 
BEQ 7S$ 

NC FATF 


LG 
ERRHRD ERRNO, WRTERR,PKTSSR 


TST (R3)- 
CMP 268. ,R3 
BNE 65% 


sWRITE DATA,CVC*1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


;SET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

;SET UP RECORD SIZE IN PACKET 

: ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

3SET UP EXPECTED 

;ARE THEY EQUAL 

;B8R, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


1 
-WORD WRTERR 
-WORD  PKTSSR 


TRAP CscLPl 


sLOOP IF SELECTED 


sBUMP RECORD SIZE 


sEND OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED 
TRAP CscLPl 


§ SSSSHSSESEEHASESESEEEESHEEEHESHESEEHEHSEEHSEEHEEHEEEEEHEEEHEESHEEEASOEERED 


SEQ 125 


TSv7 


0353246 


- HARDWARE TESTS 1-8 


004737 010714' 
004737 016236' 
103407 


010001 
005237 092212’ 


045116’ 
011746' 


104406 


013701 043660' 
010102 


044633' 
015374’ 


104406 
012703 
013737 


000400 
003114' 


012737 


06 
005237 
104456 


J10 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


043762’ 


043760' 


3 
FPSSAREAHEAHAESHEASEASEEHESAAEEEAEEEAEEEASESOERESASEHEEEDAREEEEAEDHEES 


JSR PC ,REWINO 
JSR PC,CHKTSSR 
BCS 130$ 

MOV RO,R1 

INC FATF 


LG 
ERRHRD ERRNO, T24RWN,PKTSSR 


1308: CKLOOP 


sCALL TAPE REWIND COMMAND 
sSEE HOW TSSR IS 
sBR, IF NO PROBLEM 


sSAVE TSSR 

sBUMP COUNT 

; REWIND NOT ACCEP ‘ED 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


J SSAASSHASEASAASSEASSAAEESEHEEASEEEASEEESEERASEEEEEEEEEEEHRAEEEEEEEERE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


; 
FASAHAASHHAAHASSASSESEASESSESEEHESESEAEAAESASESESESEEEASEEEEEREEEEEE 


MOV T24BFR+6,R1 

MOV R1,R2 

BIS eBiTi, R2 

CMP R1,R2 

BEQ 140$ 

INC FATFLG 

ERRHRD ERRNO, T24B0T ,EXPREC 
1408: CKLOOP 

MOV 0256. .R3 

MOV FREE , T24RB 


sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 

sBUMP COUNT 


; TAPE NOT AT BOT AFTER REWIND 
TRAP 


sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


FSPAAHASHHEASASASSEAEEHHEAAESAEASEEAEAESEHHESEEOEHEEKEEEEREEREEEEADEED 


;READ DATA,CVC=1,ACK COMMAND 


é 
FPPESASAASEEESAREEEASESSEAASEAEEEAEEEEEEEEEDEEOEEEEEEEEAEEAEAEEEEREDRSD 


MOV #140001, T24PK3 
165$; MOV @T24PK3,R4 

MOV R3,T24SZ 

MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR,R2 

CMP R1,R2 

BEQ 170$ 

NC 


I FATFLG 
ERRHRD ERRNO,RDERR,PKTSSR 


sREAD DATA,CVC=1,ACK COMMAND 


;SET UP R4 WITH PACKET ADDRESS 


;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

— THEY EQUAL 

: ° 


C 
;TSSR TNCORRECT AFTER READ DATA 


TRAP 


SEQ 126 


CSERHRD 


CsCLP1 


CSERHRD 
413 
T24B0T 
EXPREC 


CsCLP1 


CSERHRD 


K10 


sLOOP IF SELECTED 


sGET BUFFER ADDRESS 
sCURRENT RECORD SIZE 
sFIRST LOCATION IN BUFFER 


TRAP 


414 
ROERR 
PKTSSR 


CsCLP1 


sGET LOCATION IN BUFFER CADDRESS) 


sCHECK DATA READ (R3=DATA ALSO) 


sBR, IF ALL IS WELL 
sRECO DATA 
sEXPECTED aie 


sBUMP COUN 
sDATA READ NOT = esi ™ 


;LOOP IF SELECTED 


s;BUMP TO NEXT LOCATION 
;GET BACK TO CORRECT SIZE 


sEND OF RECORD YET 
36R, IF NOT AT y OF RECORD 


3B8R, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED a 


CSERHRD 
415 
T240TA 
EXPREC 


CsCLP1 


CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10054: 


TRAP 
:IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


CsESUB 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>»>>>>>>>> 
14.3: 


TRAP 
sSET UP OTHER COMMAND PACKET 
sSET COMMAND PACKET 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 01-FEB-84 17:54 
TEST 4: BASIC READ DATA (FORWARD GNo REVERSES 
035402 000636 
035404 005176’ 
035406 011746' 
2023 035410 170$: CKLOOP 
035410 104406 
2024 035412 013702 003ii4 MOV FREE ,R2 
2025 035416 010304 MOV »R4 
2026 035420 162704 000400 suB 0256. , 24 
2027 035424 060204 173$: ADD 2,.R4 
2028 035426 021403 CMP (R4),R3 
2029 035430 001410 BEQ 180$ 
2030 035432 011401 MOV (R4),R1 
2031 035434 010302 MOV R3,R2 
2032 035436 005237 002212’ INC FATFL 
2036 035442 ERRHRD ERRNO, T240TA,EXPREC 
035442 104456 
035444 000637 
035446 044700' 
035450 015374' 
2037 035452 180$: CKLOOP 
035452 104406 
2038 035454 005724 TST (R4)+ 
2039 035456 160204 SUB R2,R4 
2040 035460 020403 CMP R4,R3 
2041 035462 001360 BNE 173% 
2042 035464 005723 TST (R3)+ 
2043 035466 022703 000412 CMP 0266. ,R3 
2044 035472 001322 BNE 165$ 
2045 035474 190$: CKLOOP 
035474 104406 
2046 035476 ENOSUB 
035476 
035476 104403 
2047 035500 023727 002212' 000017 CMP FATFLG,@15. 
2048 035506 10340 BLO 9998 
2049 035510 004737 017104’ JSR PC, CKDROP 
2050 035514 999$: 
2051 
2052 36 
2053 3 
ee] ;TEST 4, SUBTEST 3 
f 
2056 ;VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 
2057 ;SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
2058 s;SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
nce ;THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 
H 
2061 3 
2062 3 
2063 < 
2064 035514 BGNSUB 
035514 
035514 104402 
2065 035516 004737 046454’ JSR PC, T24RT3 
2066 035522 004737 046320 JSR PC, T24REST 
2067 035526 004737 046412' JSR PC, T24RT2 


3SET UP OTHER COMMAND PACKET 


CsBSUB 


SEQ 127 


TSV7 - HARDWARE TESTS 


035332 
035536 
035540 
035544 
035546 
035546 
035550 
035552 
035554 
035556 
035556 
035564 


035570 


013737 
012704 


004737 
103407 
010001 
005237 


104456 
000642 
045116' 
011746' 


104406 


015674' 
002212' 


002172' 
043630' 


010562' 
002212' 


010714’ 


002212' 


MACRO M 
TEST 4: BASIC READ DA a® (FORWARD AND R 


043650’ 


Bid5- 9) -FEB-84 17:54 


L10 


PARRA AAARAAAAEARERAAAREREAEEEOOREEARAEAEEAEAEEEEEEERERERAREREEE EEE 
4 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


° 
JAARAAAAAAAAAAEASERHAAERESAESSASEEAREAEEEAAEEREAABRAAAEAAERABAESESALES 


20$: 
MOV 
MOV 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T240SW 
@T24PACKET,R4 


300 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 


SEQ 128 


TRAP CSEROF 
«WORD 416 
-WORD SFIERR 
«WORD SFIMSG 
;SET ORIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


PUTT IT iririrrriritiiiiriitiiirtititiiititiiriritiiiiirrrrrrrrrr ry) 
3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


6 
FASSAAAAAAASEHESESASEESEEEDAREAERESEABRESEEABEREBEEASESADEAEEEEAAEEEES 


MOV 


24s: CKLOOP 


RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
sBUMP COUNT 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


;LOOP IF SELECTED 
TRAP 


{RAAREAAEAAEEEAAEREEEEERAEADERERADEDEEAEEEEEAEREEEAEREREREEDEDREEES 
; 
3; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
FPFASHAAASASEASASEEESERASEAESEEAASEEHAASEASHEAASASESSESASESESASASEEESE 


30$: CKLOOP 


NC ATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


;SAVE TSSR 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


{FPAEAAAEAAAEAAAEASESESEAEEAEEASDHAEBDADASEEAAASAEDEESESSSEEADASEEASEASEEAESE 


CSERHRD 
417 

WRTMSG 
SF IMSG 


CsCLP1 


CSERHRD 
418 
T24RWN 
PKTSSR 


CsCLP1 


M10 


Test a BASIC READ BATA (FORWARD AND REVERSES! eo 27:54 


035712 
035720 
035724 


013701 


044633' 
015374’ 


104406 
012703 
013737 


012737 
012704 


005103’ 
011746' 


104406 
005723 
022703 
001346 


104406 


043660' 
000002 


002212' 


000400 
003114' 


150005 
043760' 


017324' 
043766' 
000000 
016150’ 
000002 
000200 


002212' 


000414 


043762' 


043760' 


SEQ 129 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
i 
{RARAKAAAEAAEEARAREEARAREEAAEAEEEEEEEERERERAAAEAEEAEEEEREREEEEDE EEE 
MOV T24BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 s;SET UP EXPECTED 
BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 ;D0ES EXP = REC'D 
BEQ 40$ sBR, IF EQUAL (OK) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24B0T ,EXPREC ; TAPE NOT AT BOT AFTER — 
TRAP CSERHRD 
-WORD 419 
«WORD T24B0T 
-WORD EXPREC 
40$: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 
MOV #256. ,R3 sRECORD SIZE 
MOV FREE, T24RB sSTARTING WRITE BUFFER ADDRESS 
[PARRA EAAEEEEREEEEEAEEAEAREREREDEREREEEEEREEEEEEREEEDAEEEDEEEERS 
° 
sWRITE DATA,ACK,SWB,CVC=1 COMMAND 
’ 
J RRRAAAEAPAARERAAEAAEEREREEERERAEEEEAEEEEEEAEERAEREEEEEEEEDEEEEEDEE 
MOV #150005 ,, T24PK3 sWRITE DATA,ACK,SWB,CVC=1 COMMAND 
—_ MOV @T24PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
MOV R3,RO ;SET PATTERN IN CORRECT REGISTER 
JSR PC,FILLMEM sFILL MEMORY WITH RECORD SIZE 
MOV R3,T24SZ ;SET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) ; ISSUE COMMAND 
JSR PC ,WAITF ;WAIT FOR SSR TO SET 
MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
MOV #SSR ,R2 ;SET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 75$ ;BR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 420 
-WORD WRTERR 
-WORD PKTSSR 
75$; CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1l 
TST C(R3)+ s;BUMP RECORD SIZE 
CMP #268. ,R3 sEND OF RECORD YET 
BNE 65$ ;BR, IF MORE RECORDS TO WRITE 
80$: CKLOOP ;LOOP IF SELECTED 
TRAP CSsCLP1l 
120$: 


{PEAKE ESEREAEADEASLARABABAREAAEEEAREEAASAAEASEASASARASAAEEDS 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 


TSV7 - HARDWARE T 
TEST 4: BASIC RE 


036162 


004737 010714’ 
103407 

010001 

005237 002212’ 
104456 

000645 

045116’ 

015374' 


104406 


013701 043660' 


020102 
001406 
005237 002212’ 
104456 
000646 
044633' 
015374" 
104406 
012703 000400 
013737 003114’ 
012737 110001 
012704 043760' 
010337 043766’ 
010465 000000 
004737 016150’ 
016501 00U002 
012702 000200 
020102 
001406 
005237 002212' 
104456 
000647 
005176’ 
011746' 


043762' 


043760' 


N10 


AD Bata ’CFORWARD AND REVERSES: ee O* 17154 


FPAREAAAHAREAAREAEERAREAEREERAREREREEAERAEAEEAAEEEERERERAEEEAEAREREDE 


130$: 


ERRHRD ERRNO, T24RWN,EXPREC 


CKLOOP 


PC ,REWTND 
130$ 
RO,R1 
FATFLG 


sCALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 


sSAVE TSSR 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
- WORD 

;LOOP IF SELECTED 
TRAP 


j PERAAESEEEESEEEEEEEREREREEARAEREEEDARAEREEEEEAAREEEEREEREEREEE REESE 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é ' 
s SEREAARAAASAASAAESAASAEESELEEAARAAAASAAAAERABARAREAEEEEEEREERELEAS 


140$: 


T24BFR+6,R1 
1 


LG 
ERRNO. T24B0T , EXPREC 


#256. ,R3 
FREE, T24RB 


sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

;BR, IF EQUAL (OK) 


; BUMP COUNT 
; TAPE NOT AT BOT AFTER — 


;LOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


J PRRREREEEEEEREAEEEREEEREREREEERARERERARAAEAREEREREEREREREEEEEEEEEE 
; 
sREAD DATA,IE,ACK,SWB COMMAND 


> 
{ PREAAEESEAEAAARESASEAREAEAALABAEEESEAEAEAERAEAEOEEADAEEEEEEDAREEEEEE 


165$: 


#110001 , T24PK3 
@T24PK3,R4 


FLG 
ERRHRD ERRNO,RDERR,PKTSSR 


sREAD DATA, IE,ACK,SWB COMMAND 

3SET UP R4 WITH PACKET ADDRESS 
s;SET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


3sBR, IF OK 
sBUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
. WORD 


CSERHRD 
421 
T24RWN 
EXPREC 


CsCLP1 


CSERHRD 
422 
T24B0T 
EXPREC 


CsCLP1 


CSERHRD 
423 
RDERR 
PKTSSR 


SEQ 130 


ie HARDWARE TESTS 1-8 


4: 


BASIC 


036270 
036270 
036270 
036272 
036276 
036302 


MACRO M1113 01-FEB-84 17:54 


READ DATA (FORWARD AND REVERSE ) 


104406 
013702 003114’ 
010304 
162704 000400 


060204 
021403 
005237 002212’ 


044700' 


104403 

023727 002212‘ 000017 
103402 

004737 017104’ 


104402 

004737 046454’ 
004737 046520' 
004737 046412’ 


1708; CKL OOP sLOOP IF SELECTED 
TRAP CSCLP1 
MOV FREE ,R2 1GET BUFFER ADDRESS 
MOV R3,R4 sCURRENT RECORD SIZE 
SuB 256. ,R4 sFIRST LOCATION IN BUFFER 
1738; ADD R2,R4 sGET LOCATION IN BUFFER (ADDRESS) 
CMP (R4),R3 sCHECK DATA READ (R3=DATA ALSO) 
BEQ 180$ s6R, IF ALL IS WELL 
MOV (R4),R1 sRECD DATA 
MOV R3,R2 sEXPECTED DATA 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, [240TA,EXPREC sDATA READ NOT = WRITTEN 
TRAP CSERHRD 
«WORD 424 
. WORD T240TA 
«WORD EXPREC 
1808; CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
TST CR4)> sBUMP TO NEXT LOCATION 
SUB R2,R4 sSET SIZE TO CORRECT VALUE 
CMP R4,R3 sENO OF RECORD YET 
BNE 173% 3s6R, IF NOT AT END OF RECORD 
TsT (R3)- sBUMP RECORD SIZE 
CMP 0266. ,.R3 sEND OF RECORD YET 
BNE 1658 :BR, IF MORE RECORDS TO WRITE 
190%: CKLOOP sLOOP IF SELECTED 
TRAP CSCLPL 
ENDSUB 3>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 
L10055: 
TRAP CsESuB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO 999% sBR, IF LESS THAN 25 


JSR PC .CKDROP :TRY TO OROP THE UNIT 


999$:. 

3° 

; 

sTEST 4, SUBTEST 4 


3 

sVERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
sLONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
s(RLL) BIT SET. 

3 

a 

- 


BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>> >>> 
74,4; 
TRAP Cse8sus 


JSR PC, T24RTS sSET UP OTHER COMMAND PACKET 
JSR PC, T24REST sSET COMMAND PACKET 
JSR PC, T24RTO +SET UP OTHER COMMAND PACKET 


EPOSSSSEHSSHHHSHHSSEESESSSSEHSESOHSHHHSESSEHHSSHSSEHHSSHESEHSEEEHHSEHHEEEESE 


a 
s ISSUE CONTROLLER “SOFT” INITIALIZE - CARR: BIT CLEAR IF ERROR 


SEQ 131 


Cil 


JLT“ a*BRUGRE RTS "Sata®cromunnll“RRG HESPAse91-FEB-84 17:58 


013737 
012704 


pe td os 
103407 

010001 
005237 


045116’ 
011746’ 


104406 


015674° 
002212' 


002172' 
043630' 


010562' 
002212" 


010714° 


002212" 


043650' 


3 
§ SOSSOSSOHESESOSASEHEEEESESEHESEEEHEEEESEHEEEEEEEEEHEHEEEEEEEEEEOEOEEE 


JSR PC, SOF INIT 100 INITIALIZE ON CONTROLLER 


BcsS 20% :BR IF INIT WAS OK 

INC FATFLG s6UMP COUNT 

MOV RO,R1 CONTENTS OF TSSR REGISTER 

ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 
. WORD 

208: 
MOV UNITN, T240SW :SET ORIVE NUMBER IN PACKET 


MOV —«-@T24PACKET, RA 
FFSSNSSSSSHSSSSSSSESSSHSSHSEHSHSSESHSHESESESSHESSESHSEHEEHESEEHHEHEEEEOEEEEE 
SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

| phcnbbebnnsainiaiiidnipaetetiatanidnlinaeneeemaeieeemninnei 


JSR PC, ,WRICHR sISSUE WRITE CHARACTERISTICS 


ecs 24% sBR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,.R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG , SF IMSG sWRITE CHARACTERISTISC — 
. WORD 
. WORD 
WORD 

24%: CKLOOP sLOOP IF SELECTED 

TRAP 


FSSSSSSSHSSSHSSSSASHSSESEESHEHSEEESEHESEEHEEEHEHESEEEHEEEHEESESESEEESEEEEEES 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FSSSSSSNSSSNSSSSSSSESSEESEHESOEEESSHEEESHESOESEHEEEESEEESEEEEESESS+OEEEEEESD 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

BCS 30% sBR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR ; REWIND NOT ACCEPTED ened 
. WORD 
. WORD 
. WORD 

30%; CKLOOP sLOOP IF SELECTED 

TRAP 


FSSOSHOSHSESSHESSESSESEHSSSOESESESHESHEESHESESESSSEEESHEHSEEEESOSHHEEEEEOEOD 


3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


FPSSSSSSSESSSEHSSEEESESHEHESSEs SEHSHESEHESHEHHSHEHSEHEHSSEHHEHEHEEHEEEOS 


sSUBROUTINE NEEDS PACKET ADDRESS 


CsCLPl 


CSscLPL 


SEQ 132 


Dil 


FES? aT*BREGEERERS Bat a®cronuand “ANB Rbbeise 9? “FES -08 17158 


013701 


044633' 
015374" 


104406 


012703 001000 
013737 


012737 
012704 


010337 


043760’ 


005103° 
011746' 


104406 


004737 010714' 
103407 


010001 
005237 002212’ 


003114' 043762' 


140005 043760' 


MOV T24BFR+6,R1 

MOV P1,R2 

BIS oBIT1,R2 

CMP R1,R2 

BEQ 403% 

INC FATFLG 

ERRHRD ERRNO, T24B0T ,EXPREC 


403: CKtOoP 


MOV #512. ,R3 
MOV FREE , T24RB 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sO0ES EXP = REC'D 

sBR, IF EQUAL (OK) 


F PSSOSASAESEESEES) SESEEHEEEESESEESEESEEEEEEEHEOEHEESEEEEEEEEEHEEEES 


‘ 
sWRITE DATA,ACK,CVC=*1 COMMAND 
i 


FS PSSSSOOSSESHASHEHAEHEEEEEEEEEHEEHEEEEEEEEEEEEEEEEEEEEHEEEEEEEEEEEEEE 


MOV 140005, T24PK3 

MOV @T24PK3,R4 
65%: 

MOV R3, 12457 

MOV R4,TSOBCRS) 

JSR PC ,WAITF 

MOV TSSR( R5),R1 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 753 


INC LG 
ERRHRD ERRNO,WRTERR,PKTSSR 


75$: CKLOOP 
1208: 


sBUMP COUNT 

s TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 428 
«WORD T24B80T 
«WORD EXPREC 

sLOOP IF SELECTED 
TRAP CSCLP1 

sRECORD SIZE 

sSTARTING WRITE BUFFER ADDRESS 

sWRITE DATA,ACK,CVC=1 COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER sy + 8 DATA 

CSERHRD 

"MORO 429 
.WORD wWRTERR 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CscLP1 


SPSOSOEEHSEHESEHEESEHEOEEEEEEEESEEEEEEEEEEEEEHOEEOOOH16OOOOEHEEEEEEEEE 


;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
FPSSSSHSESSSSOSEEHEEHESEEESESESOEHEEHEHSESHEEEEEHHEHEEEHEEHHKEREEOEEEEESE 


JSR PC, REWIND 
BcsS 130% 
MOV RO,R1 


INC ATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


sCALL TAPE REWIND COMMAND 

sB8R, IF NO PROBLEM 

sSAVE TSSR 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 430 

TO4RWN 


SEQ 133 


Ell 


TSV7? - HARDWARE TESTS MACRO M1i Bs 01-FEB-84 17:54 SEQ 134 
TEST 4: BASIC READ DA "y (FORWARD AND REV —) 

036570 011746' . WORD PKTSSR 

2379 036572 1308; CKLOOP sLOOP IF SELECTED 

on 036572 104406 TRAP CSCLP1 

2381 SOPRA EHEHERASHEAAEROEEAREAEEEEEEEEEEEEEAEEEEEREEEEEEEEEEEEEREDES 

2382 3 

heey sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

2385 | dnapadnnnnasensacnnenheonnnteessunnsanemantesnntanedeeteehasenenes 

2 

2387 036574 013701 043660' MOV T24BFR+6,R1 sPICK UP XSTO 

2388 036600 010102 MOV R1,R2 ;SET UP EXPECTED 

2389 036602 052702 000002 BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 

2390 036606 020102 CMP R1,R2 ;D0€S EXP = REC'D 

2391 036610 001406 BEQ 1408 ;8R, IF EQUAL (OK) 

2392 036612 005237 002212’ INC FATFLG ;BUMP COUNT 

2396 036616 ERRHRD ERRNO, T24B0T ,EXPREC | TAPE NOT AT BOT AFTER REWIND 
036616 104456 TRAP CSERHRD 
036620 000657 WORD 431 
036622 044633' » WORD T24B0T 
036624 015374’ . WORD EXPREC 

2397 036626 1408: CaL00P 3LOOP IF SELECTED 
036626 104406 TRAP CsCLP1 

2398 036630 012703 000400 MOV $256. ,R3 sRECORD SIZE 

te 036634 013737 003114' 043762’ MOV FREE, T24RB8 sSTARTING READ BUFFER ADDRESS 

2401 PET YY ITiriririttr rit ireriiriiitirirrTiiitititt Ti itititTitTiiiT TTT Titi ty 

2402 3 

nee sREAD DATA,ACK,CVC=1 COMMANL 

2405 : sebabdtihnndednbebeeeheaneteeneibmenehetndedeebinenNes 

2406 

2407 036642 012737 140001 043760’ MOV #140001 , T24PK3 sREAD DATA,ACK,CVC=1 COMMAND 

2408 036650 012704 043760’ 165$: MOV @T24PK3 , RE sSET UP R4 WITH PACKET ADDRESS 

2409 036654 010337 043766' MOV R3,T24SZ 3SET UP RECORD SIZE IN PACKET 

2410 036660 010465 000000 MOV R4,TSOBCRS) s ISSUE COMMAND 

2411 036664 004737 016150’ . JSR PC ,WAITF sWAIT FOR SSR TO SET 

2412 036670 016501 000002 MOV TSSRCRS),R1 3;GET TSSR CONTENTS 

2413 036674 012702 100204 MOV @SSR!SC!BIT2,R2 3SET UP EXPECTED 

2414 036700 020102 CMP R1,R2 sARE THEY EQUAL 

2415 036702 001406 BEQ 170$ ;BR, IF OK 

2416 036704 005237 002212’ INC FATFLG ;BUMP COUNT 

2420 036710 ERRHRD ERRNO, T24TRL,PKTSSR :;TSSR INCORRECT AFTER READ DATA 
036710 104456 TRAP CSERHRD 
036712 000660 . WORD 432 
036714 046164’ . WORD T24TRL 
036716 011746’ . WORD PKTSSR 

2421 036720 1708: CKLOOP ;LOOP IF SELECTED 

rome 036720 104406 TRAP CSCLPl 

2423 FOPROHAAHEOHEEHEOEESOSEEEEEESEEEEESASEEEEEEEORESEADEEAREEDEHREDRERERALEE 

2424 ; 

Boot sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 

2427 EO a NR Re Pens 

2428 


2429 036722 0135701 043660’ MOV T24BFR+6,R1 ;GET MESSAGE BUFFER 


TSV7 - HARDWARE TE 


TEST 4: BASIC READ Bata crORWARD 


036772 
036772 
036772 
036774 
037000 
037004 


037010 
037014 
037016 
037022 
037024 
037024 
037026 
037030 


010102 
052702 


000661 
045732’ 
015374' 


104403 
023727 
103402 
004737 


104402 
004737 
004737 
004737 


010000 


002212" 


002212' 
017104’ 


046454 ' 
046320' 
046412’ 


015674" 
002212' 


Fil 


AGND REVERSES: C84 17:58 


MOV R1,R2 sSET UP EXPECTED 
BIS oBIT12,R2 sSET THE RLL BIT IN EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 180$ s6R, IF EQUAL CALL IS WELL) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24L0N,EXPREC sTHE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
-WORD 433 
. WORD T24LON 
-WORD EXPREC 
180$;: 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10056: 
TRAP CsESUB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO 999% ;68R, IF LESS THAN 25 
JSR PC ,CKDROP :TRY TO DROP THE UNIT 
999%: 
3¢. 
: 
;TEST 4, SUBTEST 5 
3 
;VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
;SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
3(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 
sCOUNT (CRBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
sPROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
3 THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
;LENGTH). 
o 
1 
. 
* od 
BLUNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.5: 
TRAP CsBSUB 
JSR PC, T24RTS ;SET UP OTHER COMMAND PACKET 
JSR PC, T24REST 3SET COMMAND PACKET 
JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 


FSSHAASHASHASHSESHEESEEEEEEESSEESEESSHAEESEEESEHESESESEESESEHESEEEEEES 


; 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
FPSSSHASESSSHSASEAHAEEESAHESHEOSESHSSESSESSESHHSESHESEHESEAEHEEEHEEEESD 


JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

BCS 20% s6R IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDOF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CsERDF 
WORD 4 


. 34 
-WORD  SFIERR 


SEQ 135 


Tsv7 


TE 


wt 
st 4 


HARDWARE TESTS 
: BASIC READ DAT 


037032 
037034 
037034 
037042 


037072 


037074 
037100 
037102 
037104 
037110 
037110 
037112 
037114 
037116 
037120 
037120 
037122 
037126 


2526 037134 


037142 
037146 
037146 
037152 
037156 
037162 
037166 


TE 


011734’ 


013737 
012704 


004737 
103407 
010001 
005237 


104456 


000664 
045116’ 
011746' 


104406 
012703 
013737 


012737 
012704 


010337 
010465 
004737 
016501 
012702 


1-8 3 
A (FORWARD AND REVERSE 


002172’ 
043630’ 


010562’ 
002212’ 


010714' 


002212' 


000400 
003114’ 


140005 
043760’ 


043766' 
000000 
016150' 
000002 
000200 


Gll 


. WORD 
sSET ORIVE NUMBER IN PACKET 


SF IMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


J PFOSASHSHAHAAESERASEOHASHEAESESESESEEEAEEEHOSESEHEESEEEAESESHESEEEEEES 


+ 
J PFAHAAAHAHSSSESHEESEESASEEESEAEAEEEEEEEESEEEASEEEEEEEEEEEHEAEEEESEEEEE 


; ISSUE WRITE CHARACTERISTICS 
;3R, IF COMMAND ISSUED OK 
;BUMP COUNT 

3SAVE CONTENTS OF TSSR 

s;WRITE CHARACTERISTISC hee 


;LOOP IF SELECTED 


FPAASAHSSHHASESESAASSSEAHSEESABESEESEEEASESESESEEESESHESESHEEESEEEEESD 


FPSSAHSASSHHSHSSHASAEASASESSOESAAEESESESEEOSESEEASAESESESESESEEESEDEEED 


;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


sSAVE TSSR 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 
- WORD 
- WORD 

sLOOP IF SELECTED 
TRAP 


sRECORD SIZE 


sSTARTING WRITE BUFFER ADDRESS 


J PSSASSHHESSSSHASHEESSESASEASESHASSEESHEHEEEAEHSEESHESASHHSSSHSSSESSEEES 


FPRSAASSASHASHESHASSESEASSESHSHESSSHESESESESASESESESSEEESEEESEHEHEESEEEEESD 


sWRITE DATA,ACK,CVC=1 COMMAND 


;SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 


MACRO M111 oe 17:54 
208: 
043650’ MOV UNITN, T240SW 
MOV @T24PACKET ,R4 
3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
JSR PC,WRTICHR 
BCS 24$ 
INC FATFLG 
MOV RO,R1 
ERRHRD ERRNO,WRIMSG, SF IMSG 
243: CKLOOP 
3 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
JSR PC ,REWINOD 
BCS 30$ 
MOV RO,R1 
INC FATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 
30$: CKLOOP 
MOV 0256. ,R3 
043762' MOV FREE, T24RB 
3 
sWRITE DATA,ACK,CVC+1 COMMAND 
3 
043760' MOV #140005, T24PK3 
MOV @T24PK3,R4 
65%: 
MOV R3,T24SZ 
MOV R4,TSOBCRS) 
JSR PC, ,WAITF 
MOV TSSRCRS),R1 
MOV #SSR,R2 


3SET UP EXPECTED 


CSERHWRD 


CsCLP1 


CsERHRD 
436 


T24RWN 
PKTSSR 


CscLP1 


SEQ 136 


TSV7 - HARDWARE nek 


TEST 4: 


BASIC RE 


34 037172 


037174 


5 037176 


037202 
037202 
037204 
037206 
037210 
037212 
037212 
037214 


037214 


037242 


2560 037246 


037254 
037262 
037266 
037272 
037276 
037302 
037306 
037312 
037314 
037316 
037322 
037322 
037324 
037326 
037330 
037332 
037332 


020102 
001406 
005237 


005103' 
011746' 


104406 


012737 
012704 


046164 ' 
015374' 


104406 


002212' 


010714' 


002212' 


001000 
003114' 


043762’ 


043760’ 


758%: 
1208: 


Hid 


"Bata croRWaRD AND REVERSES: ©e 84 17:54 


CMP R1,R2 
BEQ 753 
FATFLG 


INC 
ERRHRD ERRNO, WRTERR,PKTSSR 


CKLOOP 


sARE THEY EQUAL 
;BR, IF OK 


FPSSAHEHASEHASHAAEHEESERESEEESEAASEAEEEEADASESEAEEEEAEEEREEEEEEREEEEE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FASAASHSHHAOAEESESESEASESESEEESEEEEEREDEREEASEEESEEEEEEEEEEREEREEEEESE 


1308: 


JSR PC ,REWINOD 
BCS 130$ 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T24RWN,PKTSSR 


CKLOOP 
MOV #512. ,R3 
MOV FREE, T24RB 


f PARSE ESEAEEESESOEEEEEEDOEESEEEEDEDESEDEEESEEEEREEEDEDEEEDEAES 
3 
sREAD DATA,ACK,CVC=1 COMMAND 


? 
FSOSSSHSHASESSHSHSSSESSESESHHEEESSEOEHHEEEHESEAKESSHHEEHESEEEAEEAEEAEEEDEAE 


1658: 


170$; 


MOV #140001, T24PK3 
MOV @T24PK3,R4 

MOV R3,T24SZ 

MOV R4,TSDBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR!ISC!BIT2,R2 
CMP R1,R2 

BEQ 170$ 


NC ATFLG 
ERRHRD ERRNO, T24TRL ,EXPREC 


CKLOOP 


sBUMP COUNT 

sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
«WORD 437 
-WORD WRTERR 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLPi 

sCALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

3 SAVE i ol 

;BUMP 

; REWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 438 
«WORD T24RWN 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 

sRECORD SIZE 

sSTARTING READ BUFFER ADDRESS 

sREAD DATA,ACK,CVC=1 COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

3SET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

;BUMP COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 439 
-WORD T24TRL 
-WORD  EXPREC 

sLOOP IF SELECTED 
TRAP CsCLPl 


FP SSSSSHASESHESEASEESSESESEEASEHS! SEKREHEHHSASEEEOHAEEEESHSHEKEESSEHEEDEOEERSE 


SEQ 137 


Iii 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 SEQ 138 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
2585 3 
Sane sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
Hy 

2588 FPRAAAAAEEAEAREEHEAEEEAREEEREEERERARAEAEEEREROEAAEEAEEEDAEEREREEEEE 

2589 

2590 037334 013701 043660' MOV T24BFR+6,R1 3GET MESSAGE BUFFER 

2591 037340 010102 MOV R1,R2 sSET UP EXPECTED 

2592 037342 052702 040000 BIS oB1T14, Re ;SET THE RLS BIT IN EXPECTED 

2593 037346 020102 CMP R1,R2 sARE THEY EQUAL 

2594 037350 001406 BEQ 180$ ;BR, IF EQUAL CALL IS WELL) 

2595 037352 005237 002212’ INC FATFLG sBUMP COUNT 

2599 037356 ERRHRD ERRNO, T24LOP,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
037356 104456 TRAP CSERHRD 
037360 000670 - WORD 440 
037362 046014’ ~ WORD T24L0P 
037364 015374’ - 40RD EXPREC 

2600 037366 1808: 

2601 037366 013701 043656’ MOV T24BFR+4,R1 sPICK UP RESIDUAL BYTE COUNTER 

2602 037372 012702 000400 MOV $256. ,R2 ;THIS SHOULD BE THE DIFFERENCE 

2603 037376 020102 CMP R1,R2 :IS THE DIFFERENCE CORRECT 

2604 037400 001406 BEQ 190$ ;6R, IF CORRECT 

2605 037402 005237 002212’ INC FATFLG ; BUMP COUNT 

2609 037406 ERRHRD ERRNO, T24PBP ,EXPREC FROPCR NOT CORRECT 
037406 104456 TRAP CSERHRD 
037410 000671 » WORD 441 
037412 046076' - WORD T24PBP 
037414 015374’ .- WORD EXPREC 

2610 037416 190$: CKLOOP ;LOOP IF SELECTED 
037416 104406 TRAP CSCLP1 

2611 037420 ENOSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
037420 10057: 
037420 104403 TRAP CsESUB 

2612 037422 023727 002212’ 000017 CMP FATFLG,@15. ;IS ERROR COUNT AT 25 

2613 037430 103402 BLO 999% ;BR, IF LESS THAN 25 

2614 037432 004737 017104' JSR PC ,CKDROP ;TRY TO DROP THE UNIT 

2615 037436 999%: 

2616 

2617 3° 

2618 ; 

th ;TEST 4, SUBTEST 6 

é 

2621 ;VERIFIES THAT READ REVERSE COMMANDS WITH SWB=0 

2622 sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 

2623 sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN 

2624 sLENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE 

2625 sSEQUENTIALLY AND THE RESULTS 

2626 3s(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 

2627 sEACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE 

2628 sEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 

2629 ;OCCUR. 

2630 ; 

2631 ; 

2632 ; 

2633 3° 

2634 037436 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
037436 14.6: 


037436 104402 "TRAP CsBSUB 


TSsv7 


2687 


- HARDWARE TESTS 


037440 
037444 
037450 


037454 
037460 
037462 
037466 
037470 
037470 
037472 
037474 
037476 
037500 
037500 
037506 


037512 


037540 
037544 
037546 
037550 
037554 
037554 
037556 
037560 
037562 
037564 


004737 
004737 
004737 


013737 
012704 


004737 
103407 
010001 
005237 


045116' 
011746’ 


1-8 


046454' 
046320' 
046412' 


015674’ 
002212’ 


002172' 
043630' 


010562’ 
002212' 


010714’ 


002212’ 


MACRO M1113 O1-FEB-84 17:54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


043650' 


JSR 
JSR 
JSR 


PC, T24RT3S 


PC, T24REST 


PC, T24RT2 


Jil 


sSET UP OTHER COMMAND PACKET 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


PCO rrrrrrrrrrrrrrriririririirrrrririrrrt tit. 
; 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; 
FAASRAAAAASAAARAAEAEARARAEEAESEEHAEBEEEESEABRASEERASEAEESEERARSEEADREDEDRSD 


SEQ 139 


JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 

BCS 20% ;BR IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
«WORD 442 
-WORD SFIERR 

ons «WORD SFIMSG 
MOV UNITN, T240SW ;SET ORIVE NUMBER IN PACKET 
MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 


FRSSAAAASSSSHASASSESEAASSSASEHASESASASABESLESARESEEAASESEASERESEAEAEESEE 


;WRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 
; 


{ SSASAAEAKEHASSASADEAAAEEAAAEEASAASEDEASEEAASESAEAEEESEASEEEEDEEAEEEE 


JSR PC, WRTICHR s ISSUE WRITE CHARACTERISTICS 
BCS 24s ;BR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 


;SAVE CONTENTS OF TSSR 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC yy 


24%: CKLOOP ;LOOP IF SELECTED 


Perrier ir tir t iit itiiiitirrriririrriririrititititirititirr irr it 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 


J FSASASSSSEHSAASEASESLSESESSESAAEAEARADASESEAAEAESSEESEAEAAEEASEEESSAEEDDSE 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
- BCS 30% ;BR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED aan 
. WORD 
. WORD 
. WORD 

308: CKLOOP sLOOP IF SELECTED 


CSERHRD 
443 

WRTMSG 
SF IMSG 


CsCLP1 


CSERHRD 
444 
T24RWN 
PKTSSR 


TSV7 -_ HARDWARE TESTS 
TEST 4: BASIC READ DA 


037572 


037702 


037710 


037760 


104406 
012703 
013737 


012737 
012704 


010300 
004737 


005103' 
011746' 


104406 
005723 
022703 
001346 


104406 


005743 
013737 


012737 


K14 


AP cFORWARD AND REVERSES) > o* 27198 


000400 
003114' 


140005 
043760' 


017324' 
043766' 
000000 
016150’ 
000002 
000200 


002212' 


000414 


003114’ 


100401 
043760' 
043766' 
000000 
016150’ 
000002 
000200 


002212’ 


043762' 


043760' 


043762' 


043760' 


MOV 
MOV 


#256 . »R3 
FREE , T24RB 


TRAP CsCLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


J RPARAAAAAAEAARAAAEAEAEEARABABERABRAADASAEERAADEDEAASARABRESEAEEEEEEEE 


3 
sWRITE DATA,ACK,CVC*1 COMMAND 


‘ 
J SPAAARASAAALAAASASESESELASEAAEAEASEAASASASESESEEAEAAERAAAESESEEEEAE 


MOV #140005 ,, T24PK3 
MOV @T24PK3,R4 
65$: 
MOV R3,RO 
JSR PC,FILLMEM 
MOV R3,T24SZ 
MOV R4,TSDBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR,R2 
CMP R1,R2 
BEQ 75$ 
INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 
758: CKLOOP 
TST CR3)> 
CMP $268. ,R3 
BNE 65$ 
80$: CKLOOP 
TST -(R3) 
MOV FREE, T24RB 


WRITE DATA,ACK,CVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


s;SET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


{PHASES ESERASAARAREASHEAEAERESESASEAOAEERASSESAAAKESEBRESEAERASESESR 


3 
;READ REVERSE DATA,ACK COMMAND 


é 
PRR RRAHEEERHKEERHEARHEREAAREHDRRERHAAREAARHRAARERHERERESEAAARAREARAADR HEHE HAED 


MOV #100401, T24PK3 
165$: MOV @T24PK3,R4 

MOV R3,T24SZ 

MOV R4, TSOBCRS) 

JSR PC, ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 170$ 


LG 
ERRHRD ERRNO, T24WOC,PKTSSR 


;BR, IF OK 

; BUMP COUNT 

;TSSR INCORRECT AFTER wy a 
TRA CSERHRD 
WORD 445 
.WORD WRTERR 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

;BUMP RECORD SIZE 

;END OF RECORD YET 

;68R, IF MORE RECORDS TO WRITE 

;LOOP IF SELECTED 
TRAP CsCLP1 

;SET BACK TO 512. 

;STARTING READ BUFFER ADDRESS 

sREAD REVERSE DATA,ACK COMMAND 

;SET UP R4&4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

: ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.WORD 446 


SEQ 140 


TSV7 - HARDWARE TESTS 


037762 
037764 


045446' 
011746' 


104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 


2742 


2743 
2744 
2745 
2746 
2747 
2748 04 
2749 
2750 
2751 
2755 


003114' 
000400 


002212' 


044700' 


000400 


002212' 
017104' 


040072 
040072 
040072 
040074 
040100 
040104 


104402 

004737 046454’ 
004737 046320’ 
004737 046412’ 


MACR 


TEST 4: BASIC READ DA y CFORWARD A 


000017 


ReveRsESs eo 
1708: 


173%: 


180$: 


190$: 


999%: 


3¢ 


17:54 


LG 
ERRNO, T24DTA,EXPREC 


FATFLG, #15. 
999% 
PC ,CKDROP 


3 
sTEST 4, SUBTEST 7 


é 

sVERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
;SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

;THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 


; 

; 

i 

g° 
BGNSUB 
JSR 


JSR 
JSR 


PC, T24RT3 
PC, T24REST 
PC, T24RT2 


;LOOP IF SELECTED 


sGET BUFFER ADDRESS 

s;CURRENT RECORD SIZE 

sFIRST LOCATION IN BUFFER 
sSET POINTER TO FRAME (WORD) 


TRAP 


sCHECK DATA READ (R3=DATA ALSO) 


3BR, IF ALL IS WELL 


sRECD DATA 

sEXPECTED DATA 

sBUMP COUNT 

;DATA READ NOT = WRITTEN 
TRAP 
- WORD 
- WORD 
- WORD 

;LOOP IF SELECTED 
TRAP 


;BUMP TO NEXT LOCATION 

sGET RID OF BASE ADDRESS 

sEND OF RECORD YET 

3BR, IF NOT AT END OF RECORD 
sBUMP RECORD S™ZE 

sEND OF RECORD YET 

;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED onan 


T24WOC 
PKTSSR 


CsCLP1 


CSERHRD 
447 
T240TA 
EXPREC 


CsCLP1 


CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
Ll 


0060: 
TRAP 


3IS ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>2 
T4.7: 


TRAP 
sSET UP OTHER COMMAND PACKET 
3SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 


FASSESAAAAAASAAHAESESSESESEASEBRADLASOAOAEAEASAAESEASASSEHHASEAEEERERASEDRDSE 


CsESUB 


CsBSUB 


SEQ 141 


TSV7 - HARDWARE TESTS 1-8 


TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


2789 


013737 
012704 


004737 
103407 
010001 
005237 


104456 
000702 
045116' 
011746’ 


104406 
012703 
013737 


015674' 
002212' 


002172' 
043630' 


010562' 
002212' 


010714’ 


002212' 


000400 
003114’ 


Mil 


MACRO M1113 01-FEB-84 17:54 


043650’ 


043762’ 


; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
J HHEAAAAEHARAEERARREREAREDAEEREREREAABEAEAERARARAAEAREAERREAEEEEEBES 


20$: 


SEQ 142 


SFIERR 
SF IMSG 


JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 
BCS 20$ BR IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS on 
. WORD 
- WORD 
. WORD 
MOV UNITN, T240SW sSET DRIVE NUMBER IN PACKET 
MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


jPRERERSEEAEAEERAREREREAEEAEEEAEREEEEEAEEREAEEEEEREEEEREEEEEREEEEES 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


6 
FESHASERAEAASAAAERASAAEEEREAEAEEAREAERADARERAREEAEASERESAEREREEEEEEED 


24s: 


JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 24$ 3;BR, IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRIMSG,SFIMSG sWRITE CHARACTERISTISC roe 
. WORD 
- WORD 
. WORD 

CKLOOP ;LOOP IF SELECTED 

: TRAP 


FSPRAHARASAAAAEREAABAEASEAREAAASAAEEEAEEEAERAAABREREEEEEAEREREREEEEEE 


; 
sISSVE REWIND COMMAND TO SELECTED TAPE DRIVE 


‘ 
FPHEERAEREREEASEESEASARAAESARAEESEAEAALARADAAAREEAARAAEEAEAAEAREDES 


30$;: 


JSR PC,REWIND ;CALL TAPE REWIND COMMAND 

BCS 30$ ;BR, IF NO PROBLEM 

MOV RO,R1 :SAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR ; REWIND NOT ACCEPTED ne 
. WORD 
- WORD 
- WORD 

CKLOOP sLOOP IF SELECTED 
TRAP 

MOV #256. ,.R3 sRECORD SIZE 

MOV FREE, T24RB sSTARTING WRITE BUFFER ADDRESS 


{FHA EAEEAEAEEEEEEAAEAAAEEES EERERRERABABAEARERERHSEREEEERERREREEERE 


WRTMSG 
SF IMSG 


CsCLP1 


T24RWN 
PKTSSR 


CsCLP1l 


TSV7 - HARDWARE TESTS 


012737 
012704 


005103' 
011746' 


104406 
005723 
022703 
001346 


104406 


005743 
013737 


012737 


045446' 
015374’ 


104406 
013702 


1-8 


150005 
043760' 


017324' 
043766' 
000000 
016150’ 
000002 
000200 


002212' 


000414 


003114’ 


110401 
043760' 
043766' 
000000 
016150' 
000002 
000200 


002212" 


003114’ 


Nii 


MACRO M1113 01-FEB-84 17:54 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


043760' 


043762' 


043760' 


; 
sWRITE DATA,ACK,CVC=1,SWB COMMAND 


; 
{ PAAAAAAAREREREAEAEAREEABREEAEEREREAEAEEREEEREEAEAAARERAEREEEEAEEDEEE 


65$: 


75$: 


80$: 


#150005 , T24PK3 
OT24PK3,R4 


R3,RO 
PC,FILLMEM 


LG 
ERRNO, WRTERR,PKTSSR 


C(R3)+ 
#268. ,.R35 
65$ 


-(R3) 
FREE, T24RB 


sWRITE DATA,ACK,CVC=1,SWB COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECURD SIZE 
sSET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
.WORD 451 
. WORD WRTERR 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
;BUMP RECORD SIZE 
sEND OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP CSCLP1 


sSET RECORD SIZE BACK TO S12. 
sSTARTING READ BUFFER ADDRESS 


J PERREEEEEEEESEAERARERAEEEEEREAEAEAAEEREEAEREEAEEEERAAEREREDEREEDEES 
; 
sREAD REVERSE DATA,ACK,SWB COMMAND 


é 
{ SRAAAEAAEABEREERESAAEEREEEEEEAEEAAEAEEAABAADEADAAREAALALEANEALELALLS 


165$: 


170$; CKLOOP 


MOV 


#110401, T24PK3 
#T24PK2 Ra 
R3,724SZ 
R4,TSDBCRS) 
PC,WALTF 
TSSRCRS),R1 
#SSR ,R2 


ERRNO, T24WDOC ,EXPREC 


FREE ,R2 


sREAD REVERSE DATA,ACK,SWB COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF ll 

sBUMP COUN 

;TSSR TNCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 452 
WORD T24wOC 
WORD EXPREC 

sLOOP IF SELECTED 
RAP CsCLP1 


;GET BUFFER ADDRESS 


SEQ 143 


TSV7 - HARDWARE TESTS 
TEST 4: 


BASIC 


040544 


Ble 


1-8 MACRO M1113 0O1-FEB-84 17:54 
READ DATA (FORWARD AND REVERSE ) 
010304 MOV R3,R4 sCURRENT RECORD SIZE 
162704 000400 SUB 0256. ,R4 sFIRST LOCATION IN BUFFER 
060204 1738: ADD R2,R4 sSET POINTER TO FRAME (WORD) 
021403 CMP CR4),R3 sCHECK DATA READ (R3=DATA ALSO) 
001410 BEQ 1608 sBR, * a IS WELL 
011401 MOV (R4),R1 +RECD D 
010302 MOV R3,R2 TEXPECTEQ, OATA 
005237 002212' INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T24DTA,EXPREC }OATA READ NOT «= WRITTEN 
104456 TRAP CSERHRD 
000705 WORD 453 
044700' WORD T240TA 
015374’ WORD EXPREC 
1808: CKLOOP sLOOP IF SELECTED 
104406 TRAP CSCLP1 
005724 TsT (R4)> sBUMP TO NEXT LOCATION 
160204 SUB R2,R4 sGET RID OF BASE ADDRESS 
020403 CMP R4,R3 sEND OF RECORD YET 
001360 BNE 173% 368R, IF NOT AT END OF RECORD 
005743 TST -(R3) sBUMP RECORD SIZE 
022703 000400 CMP 0256. ,R3 sENO RECORD YET 
001322 BNE 165% s6R, IF MORE RECORDS TO WRITE 
1908: CKLOOP LOOP IF SELECTED 
104406 TRAP CSCLP1 
ENDSU8 g>>>>>>3>>>>> END SUBTEST >»>>>>>>>>>>> 
L10061: 
104403 TRAP CsESUB 
023727 002212’ 000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 
103402 BLO 999% ;BR, IF LESS THAN 25 
004737 017104° anes JSR PC ,CKDROP sTRY TO DROP THE UNIT 
ti : 
3 
sTEST 4, SUBTEST 8 
i" 
sVERIFIES THAT A READ REVERSE COMMAND READING A RECORD 
sLONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
s(RLL) BIT SET. 
é 
3 
g° 
BGNSUB y>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
174.8: 
104402 TRAP cs8sus8 
004737 046454’ JSR PC, T24RTS sSET UP OTHER = PACKET 
004737 046320’ JSR PC, T24REST sSET COMMAND PACKE 
004737 046412' JSR PC, T24RT]) 1SET UP OTHER = PACKET 
FSSSSSSHSSESSESHESESSESSESSESESSEHEESEHSESSEESEESEEHEEEEEESESESEEEEEEESEOEEEE 
a 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
FOSSSHOSHESHEHESOHEESEHEHSEESEHEESESOSEHEESHESESEHEEESHEHESEHESEEEEHESESSE 
004737 015674' JSR PC,SOFINIT 100 INITIALIZE ON CONTROLLER 


SEQ 144 


Cle 


FELT a BREE  RdhB 'Bata®cronwanBRRe Heddace9! FEO 84 17:56 


103407 
005237 
010001 


104455 
000 706 
003642’ 
011734" 


013737 
012704 


004737 
004737 
103407 
010001 
005237 


104456 
000710 
045116' 
011746° 


104406 
012703 
013737 


002212" 


002172' 043650’ 
043630’ 


010562’ 
002212" 


010714' 
016236" 


002212' 


001000 
003114’ 043762: 


acs 208 :8R IF INIT WAS OK 
INC FATFLG :BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
. WORD 
“WORD 
‘ee . WORD 
; MOV UNITN, T240SW :SET DRIVE NUMBER IN PACKET 


MOV @T24PACKET .R4 
FOSOAHSEEESESEEOEEEEE SEES ES EEESEOESEEEREEESEEEEESEOEOEEEEEEEEEOSESE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 


J FSSSSESSSEHSSESSESSSASEEHEESSESEEEEEESEEEHESESHHEEHHEHEHEEEEOEOEEEOES 


JSR PC,.WRICHR s ISSUE WRITE CHARACTERISTICS 


BCS 24% sBR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRIMSG, SF IMSG sWRITE CHARACTERISTISC ay 
. WORD 
. WORD 
. WORD 

24s: CKLOOP sLOOP IF SELECTED 

TRAP 


FSSSSSSSHSHSSSSSSESSSSSESESESSSEHOSSEESSHESESESESHHEEHESHHSEHEEEKEHHEEEEEEE 


: 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
H 


FSSSSSSHSSSSSSSSHESSSHSHESEESSESESESEHEHSSESESSEHESSHESEHHESHESEEHESEEEEEEEEOE 


JSR PC ,REWINOD sCALL TAPE REWIND COMMAND 


JSR PC, CHKTSSR 1SEE HOW TSSR IS 

BcsS 308 sBR, ITF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED nee 
. WORD 
. WORD 
. WORD 

308: CKL OOP sLOOP IF SELECTED a 
MOV #512. ,R2 sRECORD SIZE 
MOV FREE , T24RB sSTARTING WRITE BUFFER ADDRESS 


FPSSSSSHSSSSHSSSSSSSHESHSHSHESESESHSESESHESHHHHSHSHESSESESESEHEHKESHESESEEEOE 


; 
sWRITE DATA,ACK,CvC*1 COMMAND 
; 


FSSSSSSSHSSSSSHSSHSSSSSSHEHSHSHEHEHSEHSHESHESOSSSHSSEHSHSSHESESESHHSEHSEHOEEEES 


C sEROF 
454 

SF IERR 
SF IMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


CSCcLP1 


CSERHRO 
456 
T24RWN 
PKTSSR 


CscLPl 


SEQ 145 


D12 


tee} ABR EOE dhs "Bataecrorwanh RRS Bedtisce9! FES 84 17:54 


012737 
012704 


010337 


011746" 


104406 
012703 
013737 


012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
000712 


046164' 
015374" 


104406 


013701 
010102 


005237 


140005 043760' 
043760' 


043766' 
000000 


000400 
003114' 043762’ 


100401 043760’ 
043760' 
047766" 
000000 


043660’ 
010000 


002212" 


658: 


ERRHRD ERRNO,WRIERR,PKTSSR 


7S$: CKLOOP 


MOV 
MOV 


#140005, T24PK3 
@T24PK3,R4 


R3,72452 


PC ,WAITF 
TSSRAC KS), RI 


FATFLG 


#256. ,R3 
FREE, T24R8 


FSSSSSSSHSHSSSSHSSSESSESSEEHESEESEHHOSHEHASESESEEESEESEEHESEEEEEEEEEEES 


: 
;READ DATA,ACK COMMAND 
Q 


J PSSSSHSHESSHSSSSHESSESSESSESHSEEESEHEHESEEEEEEOEESESEHSEESESEHESEHEENSEEEEE 


1658: MOV 


ERRHRD ERRNO, T24TRL ,EXPREC 


1708: C<LOOP 


#100401, T246PK3 
@T24PK3 ,R4 


sWRITE DATA,ACK,CVC*1 COMMAND 

1SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

1 ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

F COUNT 

sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 457 
-WORD WRTERR 
. WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

sSIZE OF RECORD 

sSTARTING READ BUFFER ADDRESS 

sREAD DATA,ACK COMMAND 

;SET UP R4& WITH PACKET ADORESS 

;SET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 


. WORD 458 
. WORD T24TRL 
. WORD EXPREC 


TRAP CscLPl 


;LOOP IF SELECTED 


POSSESS OSHESHEHESSESSHESHEESSHEHESESSEEHSSSEEOSHESESEESSESEESHESEHEHEEEEEEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
‘ 


§ PSSSSSHSOSSSEESESOSESEEEEEEEEHESESEEEESEEEEHEEEEEEEHESESEHHEEEEDEEOED 


T24BFR+6,R1 
1,R2 


@BIT12,R2 
R1,R2 
1808 
FATFLG 


sGET MESSAGE BUFFER (xSTO) 
sSET UP EXPECTED 

sSET THE RLL BIT IN EXPECTED 
sARE THEY EQUAL 

sBR, IF EQUAL (ALL IS WELL) 
sBUMP COUNT 


SEQ 146 


TSv?7 
TEST 


3051 


041070 


041120 
041120 
041120 
041122 
041126 
041130 
041134 
041140 
041144 


- WARDWARE TESTS 1-8 
4: BASIC READ DATA (FORWARD AND R 


104456 
000713 
045732' 
0153574' 


104406 


104403 
023727 002212’ 
103402 
004737 017104' 


003126' 


041604" 
046454' 
046320’ 
046412' 


004737 
103407 
005237 
010001 


104455 
000714 
003642’ 
011734’ 


013737 002172’ 
012704 043630’ 


015674' 
002212’ 


MACRO M 


000017 


043650’ 


Ele 


e$'- -FEB-84 17:54 
Ase 


1808; 


999%: 


; 
3; TEST 


ERRHRD ERRNO, T24L0N,EXPREC 


CKLOOP 
ENOSUB 
CMP 


BLO 
JSR 


FATFLG,@15. 
999% 
©C,CKDROP 


4, SUBTEST 9 


sTHE RLL BIT WAS NOT SET IN xSTO 
TRAP CSERHRD 
-WORD 459 
-WORD T24L0N 
-WORD  EXPREC 


TRAP C$CLP1 
3>>*>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 


L10062: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


i 

;VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA 
sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
; THE PROPER ERROR STATUS WITHOUT MOVING TAPE 


10$: 


BGNSUB 

TsT NXMFLG 
BNE 10% 

JMP 180$ 

JSR PC, T24RTS 
JSR PC, T24REST 
JSR PC, T24RT2 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T 


FPSSSASSHSSSSASSASEHSESSSEASHEHSEHEOESEESHESSEEHEEEHEHEASSEESEEEESEEEEEEE 


3 
;ISSUE CONTROLLER “SOFT” INITIALIZE 


; 
FASSSNSSSNSSSSSHHASHSHSESHHEHASSHSESESEESHESASHHSESEHOHEEAEHSSEHEESESESEEEEESD 


208: 


JSR PC, SOF INIT 

BCS 20% 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
MOV UNITN, T240SW 

MOV @T24PACKET ,R4 


TRAP CsB8SUB 

:00 WE HAVE IT? 

;8R, IF ENOUGH 

sSKIP THIS TEST IF NOT 

;SET UP OTHER COMMAND PACKET 

3SET COMMAND PACKET 

sSET UP OTHER COMMAND PACKET 

- CARRY BIT CLEAR IF ERROR 

3:00 INITIALIZE ON CONTROLLER 

;6R IF INIT WAS OK 

;BUMP COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 460 
-WORD SFIERR 
«WORD SFIMSG 


sSET DRIVE NUMBER IN PACKET 
sSUBROUTINE NEEDS PACKET ADDRESS 


FFSSS*SS>HSAHSEHSSESSEHAHASASESESHEHASEHESESHEHSHEHESHEESSHHEAHSHSHEHEHESEREHODEEOED 


i 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 
é 


SEQ 147 


Fie 


TSV7 - ARDWARE TESTS RO M11 1-FEB-84 17:54 4 
TEST 4: BASIC READ DATA 8 FORWARD ert nettases — 

Faae4 FOM@ASHASAASAHAASESAHELASESARAEESEOAEAEAEHEAEASEHEREREEEAAEEEREREROEESE 

3100 041206 004737 010562’ JSR PC, WRTICHR sISSUE WRITE CHARACTERISTICS 

3101 041212 103407 BcS 243 38R, IF COMMAND ISSUED OK 

3102 041214 005237 002212’ INC FATFLG sBUMP COUNT 

3106 041220 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

3107 041222 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
041222 104456 TRAP CSERHRD 
041224 000715 -WORD 461 
041226 005046’ -WORD WRTMSG 
041230 011734' .WORD SFIMSG 

3108 041232 243: CKLOOP ;LOOP IF SELECTED 

sans 041232 104406 TRAP CSCLP1 

3110 FSSHAAASHSAHAKSHAAECAHEHEAEAEHEEEREAEHEEAEEAEEEHEAEHEEESHAEEEEEOEEREKEEEERE 

3111 3 

oy ; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 

t 
3114 FPSASASSASASAAESASASALAASASHESEASAASESOEAASEEEEEEAAAEAEEHREREAEEEEEEEED 
3116 
1 

3117 041234 005737 002216’ TsT EXTFEA sCHECK FOR EXTENDED FEATURES SW SWITCH 

3118 041240 001024 BNE 278 ;8R IF SWITCH IS ON 

3119 041242 112737 000200 043771/' MOVB 200, 724851 sWRITE MISCELLANEOUS CONT/READ STATUS 

3120 041250 112737 000010 043770' MOVB #10, 724850 sFUNCTION SELECTION BIT (TURN ON EXTFEA Hw SWITCH) 

3121 041256 012704 043740' MOV @T24PK2,R4 sWRITE SUBSYS MEM PACKET 

3122 041262 010465 000000 MOV R4, TSDBC(RS) ISSUE COMMAND 

3123 041266 004737 016236' JSR PC,CHKTSSR sWAIT FOR SSR 

3124 041272 103407 Bcs 28% :;8R, IF NO ERROR 

3125 041274 010001 MOV RO,R1 sERROR, SAVE TSSR 

3126 041276 005237 002212' INC FATFLG ;BUMP COUNT 

3130 041302 ERRHRD ERRNO, T22SSR,PKTSSR iTSSR NOT CORRECT AFTER wnt MISCELLANEOUS 
041302 104456 CSERHRD 
041304 000716 "WORD 462 
041306 026130' .WORD T22SSR 
041310 011746’ .WORD PKTSSR 

3131 041312 278: 

3132 041312 283: CKLOOP ;LOOP IF SELECTED 
041312 104406 TRAP CsCLP1 

3133 

3134 

3135 

3136 041314 004737 010714' JSR PC, REWIND ;CALL TAPE REWIND COMMAND 

3137 041520 004737 016236’ JSR PC,CHKTSSR ;SEE HOW TSSR IS 

3138 041324 103407 BcS 30$ ;8R, IF NO PROBLEM 

3139 041326 010001 MOV RO,R1 ;SAVE TSSR 

3140 041330 005237 002212’ INC FATFLG ;BUMP COUNT 

3144 041334 ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 
041334 104456 TRAP CSERHRD 
041336 000717 .WORD 463 
041340 045116' .WORD T24RWN 
041342 011746’ .WORD PKTSSR 

3145 041344 30$: CKLOOP ;LOOP IF SELECTED 
041344 104406 TRAP CSCLP1 

3146 041346 012702 000005 MOV 05. ,R3 sNUMBER OF RECORDS 

3147 041352 013737 003114 043762' MOV FREE, T24RB s;STARTING WRITE BUFFER ADDRESS 


3148 SPH SSOHEHEEESEEEEDEHESEEHEEES! GHHHEEHHEEEEHHEHEESESEHEEREEHHEDAEEDESD 


7 -_ HARDWARE 
ASIC 


Gle 


READ Bata °cFORWARD AND REGERSES!  ©O-84 17:54 


WRITE DATA,ACK,CVC*1 COMMAND 


‘ 
SPHERE AHAHADESEHESEHEHAEEEHEAEASEDEEHASEEEEEEREEEASESEAEASEEEESEEESE 


012737 
012704 


012737 


005103' 


012737 


140005 043760' 
043760' 
65$: 


000256 043766' 
000000 


016150' 
000002 
000200 


002212" 


75$: 


000400 
160000 
177776 
016276' 


003130’ 
003130’ 
043764' 


043762’ 


#140005, T24PK3 
@T24PK3,R4 


#256, T24SZ 
R4, TSDBCRS) 
PC ,WAITF 

TSSRCRS),R1 


FATFLG 
ERRNO, WRTERR,PKTSSR 


#177776,R2 
PC , XNXM 
180$ 
R1,NXMLO 
NXMLO, T24RB 
T24RB+2 


SEQ 149 


sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;B8R, IF OK 
sBUMP COUNT 
3;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. WORD 464 
~ WORD WRTERR 
.-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl1 


s;BUMP DOWN RECORD COUNTER 

3BR, IF NOT AT S RECORDS YET 
sRECORD SIZE 

sNXM LOW ADORESS START 

sLIMIT CHECK FOR NXM (HIGHEST) 
sLOOK FOR NXM ADDRESS 

36R, IF NON FOUND 

sSET ADDRESS UP FOR TEST 
sSTARTING READ BUFFER ADDRESS 
;SET TO 16 BIT ADDRESSING 


F SSSSSOSASSESEHEEHESSEAEHEESESEHEHESSEEHEEEEHESHEAEESEEHESEEEEHHEEEEHEEAEEEROEDE 


;READ DATA,ACK COMMAND 


e 
FPFSSOHASSSHSHEHHASSSHASSSESHEHEHEHEHEEEHEEHHASEEESEHAEHESEHEAEEHESHEDEEEE 


043760’ 165$: 


ERRHRD 


#100091, T24PK3 
@T24PK3,R4 
@256.,T24SZ 

R4, TSOBCRS ) 

PC ,WAITF 
TSSRCRS),R1 
@SSRINXM!SC!BIT3,R2 
R1,R2 

170$ 

T24RB +2 

T24RB+2,04 

165$ 

FATFLG 

ERRNO, T24NXM,PKTSSR 


sREAD DATA,ACK COMMAND 
:;SET UP R4& WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
3SET UP EXPECTED 
sARE THEY EQUAL 
3BR, IF OK 
;SET TO NEXT HIGHER ADDRESSING MODE 
s0ID WE OVERFLOW INTO 19 BITS 
;BR, IF STILL IN 16-18 BITS RANGE 
;BUMP COUNT 
:TSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 


. WORD TO4NXM 


TSV7 - HARDWARE TESTS 
TEST 4: BASIC READ DATA (FORWARD AND REV VERSES 


041622 
041622 
041622 
041624 
041630 
041634 


041676 


011746’ 
104406 


104403 
023727 
103402 
004737 


104402 
004737 
004737 
004737 


013737 
012704 


004737 


1-8 


002212' 
017104' 


046454' 
046320' 
046412’ 


015674' 
002212' 


002172’ 
043630' 


010562’ 


MACRO M 


000017 


043650’ 


H12 


1113 O1-FEB-84 17:54 


1708; 
180$: 


9995: 


3¢ 


CKLOOP 

ENOSUB 

CMP FATFLG,@15. 
BLO 999% 


JSR PC ,CKDROP 


a 
sTEST 4, SUBTEST 10 


é 
sVERIFIES THAT ILLEGAL MODE-FIELD CODES IN THE READ 
sCOMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE 


sILLEGAL COMMAND CILC) ERROR BIT SET. 


BGNSUB 


JSR PC, T24RTS 
JSR PC, T24REST 
JSR PC, T24RT2 


. WORD PKTSSR 

TRAP CSCLP1 

3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L1006 


TRAP CsESUB 
sIS ERROR COUNT AT 25 
;B8R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


sLOOP IF SELFCTED 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T : 


TRAP C$8SUB 
;SET COMMAND PACKET UP CLEAR 
sSET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 


FPSSASEAASAAAAASASOHEAESESASASESARESESEEESAEASEEEEEDAEEEEREEEEEEEDESD 


é 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
FSSHEHSSHASSSHSEHESEHAEEEESEEEEEASEHEOEEEEHEAREEEEEEEEEEASHEEASEESEOEEOERELE 


20s: 


JSR PC, SOF INIT 
BCS 20$ 

INC FATFLG 
MOV 


RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 


MOV UNITN, T240SW 
MOV OT24PACKET ,R4 


s00 INITIALIZE ON CONTROLLER 
3;BR IF INIT WAS OK 
sBUMP COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 


;SET UP DRIVE NUMBER 
sSUBROJTINE NEEDS PACKET ADDRESS 


FFSSSSEAEEEEASAESEEEASASESESESHESEREEEEAEAAALEEEEHEEEEEEEAEDEEEEDESS 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


° 
F FAAHOSEHEEAEEADEEESEAEEEEEEDEAEEEEEEEEOOO04O4O44O00564600064000004604668648 


JSR PC, WRTCHR 


s ISSUE WRITE CHARACTERISTICS 


SEQ 150 


TSv? 
TEST 


- HARDWARE TESTS 1-8 
4: BASIC READ 


3254 103407 
3255 005237 002212’ 


3259 010001 
3260 


104406 


013737 003114’ 


012737 


011746' 


104406 


013701 043660’ 


044446' 
015374' 


104406 


MACRO 
DATA (FORWARD AND 


043762' 


043760' 
043766’ 


24s: 


Ile 


1-FEB-84 17:54 
cS 24s 
INC oa 
MOV 


RO 
ERRHRD ERRNO, WRTMSG , SF IMSG 


CKLOOP 


MOV FREE, T24RB 


;BR, IF COMMAND ISSUED OK 
BUMP COUNT 
sSAVE CONTENTS OF TSSR 


sWRITE CHARACTERISTISC FAILED 
TRAP 


;LOOP IF SELECTED _— 
sSTARTING WRITE BUFFER ADDRESS 


J PSARAHSHAALESS SHARE HAAABRESASLESASLASASASESEAEAAEEEAEESEELESESEHEAEERESSE 


& 
;ILLEGAL MODE DATA,ACK COMMAND 


3 
FPAARARAAAEASSSSEAAEEAEAEAEEAAEAEAASEEEASESEBRASESDEEEASELSEESEAEEEESEEEEED 


75$: 


MOV #104001, T24PK3 

MOV @T24PK3,R4 

MOV 256. ,T24SZ 

MOV R4,TSOBCRS) 

JSR PC ,WAITF 

MOV TSSR(RS) RL 

MOV @SSR!SC!BIT1!BIT2,R2 
CMP R1,R2 

BEQ 75$ 

INC 


FATFLG 
ERRHRD ERRNO, T24WDF ,PKTSSR 


CKLOOP 


sILLEGAL MODE DATA,ACK COMMAND 
3SET UP R4 WITH PACKET ADDRESS 
3SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR!IBITI!BIT2 TO SET 
;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


:BR, IF OK 
s;BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


FPASAAASHADASSSAASSAASESASHADAEESEDEEEEESEAAEASEAESEEEEESESAESESEDEESES 


‘ 
s;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


° 
FSSAAAEAAEHEAAEAEEESEAASESAASHEAEEESHEAESESEEESEEASASSEELHOEESEEESEEDRES 


180$: 


MOV T24BFR+6,R1 
MOV 1,R2 

BIS oBIT9, Re 
CMP R1,R2 

BEQ 180$ 

INC FATFLG 


ERRHRD ERRNO, T24L0Q,EXPREC 


CKLOOP 
ENDSUB 


;GET MESSAGE BUFFER 

sSET UP EXPECTED 

;SET THE ILC BIT IN EXPECTED 
sARE THEY EQUAL 

BR, IF EQUAL CALL IS WELL) 
sBUMP COUNT 


CSERHRD 


CsCLP1 


T24WOF 
PKTSSR 


CsCLP1 


1 THE ILC BIT WAS NOT = IN XSTO 


RAP 
rWORD 
~ WORD 
. WORD 


TRAP 


CSERHRD 
469 
T24L0Q 
EXPREC 


CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10064: 


SEQ 151 


TSV7 - HARDWARE TESTS 1-8 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


042050 


042066 
042066 
042066 
042070 
042074 
042100 


042142 
042146 
042150 
042154 
042156 
042156 
042160 


MACRO M1113 01-FEB-84 17:54 


J1le 


CsESUB 


CsBSUB 


CSEROF 
470 

SFIERR 
SFIMSG 


CSERHRD 


104403 TRAP 
023727 002212’ 000017 CMP FATFLG,#15. 3IS ERROR COUNT AT 25 
103402 BLO 999$ ;BR, IF LESS THAN 25 
004737 017104' sone JSR PC, CKDROP sTRY TO OROP THE UNIT 
3° 
a 
;TEST 4, SUBTEST 11 
o 
;VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
sFUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS 
;CILA) ERROR BIT SET. 
Hy 
3 
; 
3° 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.11: 
104402 TRAP 
004737 046454' JSR PC, T24RT3 3SET COMMAND PACKET UP CLEAR 
004737 046320' JSR PC, T24REST ;SET COMMAND PACKET 
004737 046412‘ JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 
PeCCP CULT Iie TeV iti ti tir TT iri Tirerervevererevey verity TTTTTrTTrTTTT TT 
: : 
sISSUVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
Le eR RT NT 
004737 015674' JSR PC,SOFINIT :D0 INITIALIZE ON CONTROLLER 
103407 BCS 20$ ;BR IF INIT WAS OK 
005237 002212’ INC _ FATFLG sBUMP COUNT 
010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR, SF IMSG ;FATAL ERROR TSSR WAS NOT OK 
104455 TRAP 
000726 . WORD 
003642’ . WORD 
011734’ ans . WORD 
013737 002172' 043650’ : MOV UNITN, T240SW ;SET UP DRIVE NUMBER 
012704 043630’ MOV @T24PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
FPREAAAAAEAEAHEDADEEEAASEEERERERESEDEREEEEREAEEDEDRREEDEREREDAAREAELE 
a 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
EE ET oe RT aT MNT UT 
004737 010562’ JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
103407 BCS 24$ ;8R, IF COMMAND ISSUED OK 
005237 002212’ INC FATFLG ;BUMP COUNT 
010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
104456 TRAP 
000727 . WORD 


471 


SEQ 152 


TSV7 - HARDWARE TESTS 1 


TEST 4: BASIC READ Batae C FORWARD END R 


005046' 
011734' 


104406 
013737 
012737 


012737 
012704 
012737 
010465 
004737 
016501 


044132’ 
011746' 


104406 


013701 
010102 


015374' 
104406 


104403 
023727 
103402 
004737 


003114’ 
177700 


043660' 
000400 


002212' 


002212' 
017104' 


MACRO 


043762' 
043764' 


043760' 
043766' 


000017 


K12 


Ho) oe he -FEB-84 17;54 


243; 


CKLOOP 


MOV 
MOV 


FREE, T24RB 
#177700, T24RB+2 


J ASHAEAAASAAAAHEREASAEEAEAEAAABESEESASABRERAEEEADEEAEAAESEASEESEEREEESE 


; 
s;LEGAL MODE ,ACK,CVC=1,READ COMMAND 


° 
{SARAH AAHASEESEAEAREAAEEAEEREEEEEREESEAEESEEESSEAERESEASESAEDEEESD 


75$; 


INC 
ERRHRD 


CKLOOP 


#140001, T24PK3 
@T24PK3,R4 


TSSR(RS).R 
OSsR!SCtBIT1!BIT2,R2 
R1,R2 

75$ 


FATFLG 
ERRNO, T24WOG,PKTSSR 


ee 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
{ SSSAAASESAAASASASERESEASEAASEEEAEASEEAEAEASESEASESEASEESESASASSESEESEEESD 


180$: 


999$: 


ENDSUB 


ay Apt 


R1,R 

#BIT8,R2 

R1,R2 

180$ 

FATFLG 

ERRNO, T24ILA,EXPREC 


FATFLG, #15. 
999$ 
PC ,CKDROP 


SEQ 153 
.WORD WRTMSG 
-WORD SFIMSG 
;LOOP IF SELECTED 
TRAP CSCLP1 
s;ILLEGAL STARTING READ OUFFER ADDRESS 
sCREATE ILLEGAL ADDRESS 
sLEGAL MODE ,ACK,CVC=1,READ COMMAND 
3SET UP R4 WITH PACKET ADDRESS 
3SET UP RECORD SIZE IN PACKET 
3; ISSUE COMMAND 
sWAIT FOR SSR!BIT1IIBIT2 TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
3;B8R, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 472 
. WORD T24WD0G 
. WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
;GET MESSAGE BUFFER 
;SET UP EXPECTED 
;SET THE ILA BIT IN EXPECTED 
;ARE THEY EQUAL 
3BR, IF EQUAL CALL IS WELL) 
;BUMP COUNT 
;THE ILA BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 


-WORD 473 
«WORD T24ILA 
«WORD EXPREC 


TRAP CSCLP1 
;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10065: 
TRAP CSsESUB 
3IS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


TSV7 - HARDWARE TESTS 176 
TEST 4: BASIC READ DATA (FORWARD AND R 


3457 


042370 
042374 
042376 
042402 
042404 
042404 
042406 
042410 
042412 
042414 
042414 
042422 


042426 
042432 
042434 
042440 
042442 
042442 
042444 
042446 
042450 
042452 
042452 


013737 
012704 


004737 
103407 
005237 
010001 


104456 
000733 
005046' 
011734’ 


104406 


003126' 
042696' 
046454 ' 


046320' 
046412' 


015674' 
002212' 


002172' 
043630' 


010562’ 
002212' 


MACRO M115<9? -FEB-64 17:54 


043650’ 


3¢ 


Lie 


3 
sTEST 4, SUBTEST 12 


3 

;VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
sNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR 

; TERMINATION (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND 
;THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 


3? 
BGNSUB 


10$: JSR 


PC, T24RTS 
PC, T24REST 
PC, T24RT2 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.12: 


TRAP 
300 WE HAVE IT? 
;BR, IF ENOUGH 
;SKIP THIS TEST IF NOT 
;SET COMMAND PACKET UP CLEAR 
3SET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


{ASAAARAAARASESSSSEAAGALASAAASESEASEAAAAEASREEEEAEAASESERASASLESEEAEEESE 


; 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
J AAARSASREASRSASALALESABARAEAESEAEAEAEEABAASEEESERESEEASESEAESAERESSEEES 


20$: 
MOV 
MOV 


PC,SOF INIT 

20$ 

FATFLG 

RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T240SW 
@T24PACKET ,R4 


300 INITIALIZE ON CONTROLLER 
;68R IF INIT WAS OK 

sBUMP COUNT 

;CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS a 


;SET UP DRIVE NUMBER 


C$BSUB 


SFIERR 
SF IMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


Ee 


3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 


é 
{SOAAASHAHESEEEEAAAEEAAAEASSASASHEEEASESEASESSEEESEAASESESEHASSEHSESHAEEEAEE 


243: CKLOOP 


PC,WRTCHR 

24s 

FATFLG 

RO,R1 

ERRNO, WRTMSG, SF IMSG 


; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
s;BUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC iy 


;LOOP IF SELECTED 


CSERHRD 
475 

WRTMSG 
SF IMSG 


CsCLPl 


SEQ 154 


re 


Vv 
S 


Mie 


ta BRST READ BATA CFORWARD AND REVERSES: oO O* 27194 


S8 042454 


042460 
042464 


042470. 


042472 
042476 
042504 


042624 
042624 


012701 
012702 
004737 
103046 
010137 
013737 
005037 


012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 


044221' 
011746’ 


104406 


104403 
023727 
103402 
004737 


160000 
177776 
016276' 
003130’ 


003130' 
043764' 


043764' 
043764' 


002212' 


002212' 
017104' 


043762' 


043760' 
043766' 


000004 


000017 


MOV #160000,R1 
MOV #177776,R2 
JSR PC , XNXM 
BCC 60% 

MOV R1,NXMLO 
MOV NXMLO, T24RB 
CLR T24RB+2 


sNXM_ LOW ADDRESS STAR 

sLIMIT CHECK FOR NXM (HIGHEST) 
sLOOK FOR NXM ADDRESS 

3BR, IF NON FOUND 

sSET ADDRESS UP FOR TEST 

sSET TO NXM MEMORY ADDRESS 
sSET TO 16 BITS ADDRESSING 


{PAARAAAEAARSEAAEEEEEEERERABABSEEEAAEBEBEAEALASADERESAAEEEAAESSEESEDDS 


8 
sREAD, ACK, CvC=1, COMMAND 


« 
{SARAARAARARAEAEAEAAABRAERAERAARAARES ERASER ERASEHASESESREEEEAREAEAEAESEESEESE 


30$: MOV #140001, T24PK3 
MOV @T24PK3,R4 
MOV #256. ,T24SZ 
MOV R4, TSDBCRS) 
JSR PC ,WAITF 
MOV TSSR(RS), R1 
MOV @SSR!SC!NXM!BIT3,R2 
CMP R1,R2 
BEQ 75$ 
INC T24RB+2 
CMP T24RB+2, 44 
BNE 30$ 
INC FATFLG 
ERRHRD ERRNO, T24NXM,PKTSSR 
75$;: CKLOOP 
80$: 
ENDSUB 
CMP FATFLG, #15. 
BLO 999$ 
JSR Pe CKDROP 
999%: 


s* 


g 
sTEST 4, SUBTEST 13 


;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 
sWAIT FOR SSR!BIT1!IBIT2 TO SET 
sGET TSSR CONTENTS 

;SET UP EXPECTED 
sARE THEY EQUAL 


; BUMP TO NEAT ADDRESSING RANGE 
sCHECK FOR OVERFLOW 

;BR, IF STILL IN 16-18 BIT RANGE 
;BUMP COUNT 

+TSSR INCORRECT AFTER or DATA 


TRAP CSERHRD 

-WORD 476 

. WORD T24NXM 

«WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10066: 
TRAP CsESuB 


:IS ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


‘ 

s;VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
;TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 


g° 
BGNSUB 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
74.13: 


SEQ 155 


TSV7 - HARDWARE TESTS 1-8 


TEST 4: 


BASIC 


042700 
042704 
042706 
042712 
042714 
042714 
042716 
042720 
042722 
042724 
042724 


042726 
042732 
042736 
042740 
042742 
042746 
042746 
042750 
042752 


104402 
004737 
004737 
004737 


013737 
012704 


004737 
004737 
103407 
010001 
005237 


104456 
000737 
045116’ 


046454' 
046320’ 
046412' 


015674: 
002212’ 


002172' 
043630' 


010562' 
002212' 


010714° 
016236' 


002212' 


Nie 


MACRO M1113 01-FEB-84 17:54 
READ DATA (FORWARD AND REVERSE ) 


043650’ 


JSR PC, T24RT3 
JSR PC, T24REST 
JSR PC, T24RT2 


4 TRAP 
SET COMMAND PACKET UP CLEAR 
3SET COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 


{ FPRAAAARERAAEREEAESEREREEERAREREREREAEAEERAEAEEAEAEAAEREEAAREEEEEE 


; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


s PRAAAAAEAAEEAEAEAERERAEEERARAAAAARD CAREERS ERESEREAEAEAEABAEREER 


JSR PC, SOF INIT 
BCS 20$ 

INC FATFLG 

MOV RO 


eR1 
ERRDF ERRNO,SFIERR,SFIMSG 


20$: 
MOV UNITN, T240SW 
MOV @T24PACKET ,R4 


JSR PC,WRTCHR 
BcsS 24s 

INC FATFLG 
MOV 


RO,.R1 
ERRHRD ERRNO, WRTMSG , SF IMSG 


243: CKLOOP 


s00 INITIALIZE ON CONTROLLER 
3BR IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS —_ 


;SET UP DRIVE NUMBER 


C$BSUB 


SFIERR 
SF IMSG 


s SUBROUTINE NEEDS PACKET ADDRESS 


J REREAREEEEEEAEEREEEEEEREREDEEEAREREEEAEREEAEOERERERERREREREREREEREE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


‘ 
s FFAREAAERAREBRALAEEEEEREEESAEESERAERAAEAAAAEEEREEAEAREEEAAEEALAEEBES 


s ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
sBUMP COUNT 


sSAVE CONTENTS OF TSSR 


;WRITE CHARACTERISTISC FAILED 
TRAP 


;LOOP IF SELECTED 


{HEARERS AREAAEAAEEAARARARSEREREAEREAEEEEREAAEREAEEEAEAARERERAEREARE 


3 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
FPPAREEARARAAARAEEAAEAEEEAEESAEEAEAREEAEAERASERAEEREREAEREAAREAARREE 


JSR PC ,REWIND 
JSR PC,CHKTSSR 
BCS 30$ 

MOV RO,R1 


INC FATFLG 
ERRHRD ERRNO, T24RWN,PKTSSR 


;CALL TAPE REWIND COMMAND 
sSEE HOW TSSR IS 
;BR, IF NO PROBLEM 


sSAVE TSSR 

s;BUMP COUNT 

; REWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 


WRTMSG 
SFIMSG 


CsCLP1 


CSERHRD 
479 
T24RWN 


SEQ 156 


v7? 
ST 4; 


- HARDWARE TESTS 
BASIC READ 


042754 
042756 
042756 
042760 
042764 


011746' 


104406 
012703 
013737 


012737 
012704 


010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
000740 
044561" 
011746' 


104406 


013701 
010102 
052702 
020102 
001406 
0052357 


104456 
000741 
044010’ 
015374" 


104406 


104403 
023727 
103402 
004737 


000400 
003114' 


100401 
043760’ 


043660' 
002000 


002212" 


002212' 
017104: 


MACRO M 
DATA (FORWARD AND R 


043762’ 


043750' 


000017 


113 
VERSE 


3U8; 


CKLOOP 


MOV 
MOV 


Bis 


al -FEB-84 17:54 


256. Rs 
FREE, T24RB 


BOF SCAOSOHHSHHASHESEEEEHEOEHEESEEEEHEHHHEEEEEEEEEEEEHEEEHESHEEEEOHOEODEE 


}READ REVERSE DATA,ACK COMMAND 


3 
FOSSAHAHSHSHESHEHESEESSEHEHHAEEESHESCEEHEEEHEEEEHEEESEEEHEEEEEEEEEEEEOEEE 


653: 


758: 


INC 
ERRHRD 


CKLOOP 


#100401, T24PK3 
@T24PK3,R4 


R3,T24SZ 

R4, TSOBCRS) 

PC ,WALTF 

TSSRC(RS),R1 

+r oe pte hen 


FATFLG 
ERRNO, T24WDE ,PKTSSR 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


FPSO EAHSEHESOHOOAHEHHEOEEESEEESEEEEEEEEEEEOEEEEEEEEEEORESEEOEEESS 


18038: 


999%: 


T24BFR+6,R1 


ERRNO, TO4NEF ,EXPREC 


FATFLG,@15. 
999% 
PC, CKDROP 


-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCiP1 

sRECORD SIZE 

sSTARTING WRITE BUFFER ADDRESS 

sREAD REVERSE DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

BR, IF OK 

sBUMP COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHROD 
-WORD 480 
«WORD T24WDE 
WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCcLPL 

1GET MESSAGE BUFFER 

sSET UP EXPECTED 

sSET THE NEF BIT IN EXPECTED 

sARE THEY EQUAL 

sBR, IF EQUAL (ALL IS WELL) 

sBUMP COUNT 

;THE RLL BIT WAS NOT SET IN xSTO 
TRAP CSERMRD 
-WORD 481 
-WORD  T24NEF 


-WORD EXPREC 


TRAP CsciPL 
g>>>>>>>>>>3> END SUBTEST >>> >>>>>>oo> 
L1006?: 

TRAP CsESUB 
1IS ERROR COUNT AT 25 
s8R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


SEQ 157 


% 


1 rea. 
TELF a BRYCE RES 'Bata®cronwanb AAS RedeHse9! FEB 84 17:58 SEQ 158 

3612 

36138 ie 

3614 ’ 

3615 “a 4, SUBTEST 14 

3616 

3617 {VERIFIES THAT A READ REVERSE COMMAND ISSUED —— THE 

3618 s TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE 

3619 :(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 

3620 : 

3621 3 

3622 ’ 

3623 3 

3624 

3625 043124 BGNSUBS 3 >>>>>>>>>>>> BEGIN SUBTEST >>>» >> >> >> >> 
043124 74.14: 
043124 104402 TRAP Cs6SuU8 

3626 043126 004737 046454’ JSR PC, T24RTS 3SET COMMAND PACKET UP CLEAR 

3627 043132 004737 046320 JSR PS, T24REST :SET COMMAND PACKET 

3628 043136 004737 046412’ JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 

3630 TOSOSEAEHHSESASHHHSSSEASEEESSESEEHEEEEEEEEHEEEEEEEEEESEHEEEEEEEEESESE 

3631 : 

4 ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

i s 

3634 FSSOHSSAHHHSASEHSSSHSEEHESEFEOEEEEESEEEOOHEHEEEEEEEEEEEEESEEEEEEEEDE 

3625 

3636 043142 004737 015674’ JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

3637 043146 103407 Bcs 20% ;B8R IF INIT WAS OK 

3638 043150 005237 002212’ INC FATFLG sBUMP COUNT 

3642 043154 C10001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

3643 043156 ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
043156 104455 TRAP CSEROF 
043160 000742 WORD 482 
043162 003642’ . WORD SF IERR 
043164 011734’ . WORD SF IMSG 

3644 043166 20%: 

3645 043166 013737 002172' 043650’ MOV UNITN, T240SW ;SET UP ORIVE NUMBER 

ee 043174 012704 043630' MOV @T24PACKET RG s SUBROUTINE NEEDS PACKET ADORESS 

364) FOSSHSHESESSHHEHOSEEHESEEESEEEEEEEEESEEEESESEEEEEEEESEHEEEEEEEEEOEES 

3649 : 

aeae ;WRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 

| ERE AO eT EO OR I NDE TPO 

3654 043200 004737 010562’ JSR PC .WRICHR sISSVE WRITE CHARACTERISTICS 

3655 043204 103407 Bcs 24s ;BR, IF eee s ISSUED OK 

3656 043206 005237 002212' INC FATFLG ;BUMP COUN 

3660 043212 010001 MOV RO,R1 3s SAVE CONTENTS OF TSSR 

3661 043214 ERRHRD ERRNO,WRIMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
043214 104456 TRAP CSERMRD 
043216 000743 . WORD 48? 
043220 005046’ . WORD WRITMSG 
043222 011734' . WORD SF IMSG 

%662 043224 243: CKLOOP ;LOOP IF SELECTED 
043224 104406 TRAP CSsCLPL 


3663 


TSv? 
Test 


- HARDWARE TESTS 
4: BASIC READ DATA (FORWARD AND REVERSE ) 


043364 
043372 
043376 


045116' 
011746' 


104406 
012703 
013737 


012737 
012704 


010337 


104406 
012703 
013737 


012737 
012704 
010337 


1-8 


010714° 
016236' 


002212" 


000400 
003114" 


140005 
043760' 


002212" 


000400 
003114° 


100401 
043760: 
043766' 


D13 


MACRU M1113 0O1-FEB-84 17:54 


043762' 


043760' 


043762’ 


043760' 


F PSSHSSSHHSHEESEEEESESESESESEHEEEEEEEEHESEEHESEEESESEEEEEHOEEHEEEEOEEESE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


3 
FPSHMSSSHSEHSOHEHOHEHOEHEESEEEHEEEEEEEEHEEHEEEEESEEESEEEESHEERESHEOEEEEEOSE 


JSR PC ,REWIND 

JSR PC, CHKTSSR 

BCS 30% 

MOV RO,R1 

INC FATFLG 

ERRHRD ERRNO, T24RWN,PKTSSR 
308%; CKLOOP 

MOV 0256. ,R3 

MOV FREE, T24RB 


sCALL TAPE REWIND COMMAND 
sSEE HOW TSSR IS 
s6R, IF NO PROBLEM 


sSAVE TSSR 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 

sLOOP IF SELECTED 
TRAP 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FSSSSSHSOSHSSEHSSESSHSESESEHOESHEEHAOEEEHOEHEEEEEESEEESEEEESEEEEEEEEEEE 


; 
sWRITE DATA,ACK,CvC*1 COMMAND 
; 


FSSSSSSSSSHSSHSSSSESSHESHSSHHHEEHSESHESEHHESEESESESEHSESEHEEEREEADEEEEEEE 


MOV 140005, T24PK3 

MOV OT24PK3 RGA 
65%: 

MOV R3,7T24SZ 

MOV R4,TSOBC(RS) 

JSR PC ,WAITF 

MOV TSSR(RS),R1 

MOV @SSR ,R2 

CMP R1,R2 

8.2 753 

INC FATFLG 

ERRHRD ERRNO,WRTERR,PKTSSR 
75%: CKLOOP 

MOV 0256. ,R3 

MOV FREE , T24RB 


sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


;SET UP RECORD SIZE IN PACKET 
: ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 


sARE THEY EQUAL 
BR, IF OK 
sBUMP COUNT 
:TSSR INCORRECT AFTER READ DATA 
TRAP 
. WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


FFSSSHESOSNHESSSSSESHESESSEESESEHEEHSHEHEEHSESEHSAEEEHOASEESESEHHEHEESEHEEEEEOOE 


;READ REVERSE DATA,ACK COMMAND 
3 


FPSSSOSSHSHESHESEHESESESSHEHESEESESHESSHESEHOHEHESHEAEEEHESEHEEHEHEHEEEEHOEOE 


MOV #100401, T24PK3 
165%: MOV OT24PK3,R4G 
MOV R3, 12452 


sREAD REVERSE DATA,ACK CUMMAND 
sSET UP R4& WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


CsCLP1 


WRTERR 
PKTSSR 


Csc.Pl 


SEQ 159 


TSv7 


- HARDWARE TESTS 1-8 
TEST 4: 


BASIC 


READ DATA (FORWARD AND REVERSE ) 


010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 
004737 016150’ JSR PC ,WAITF sWAIT FOR SSR TO SET 
016501 0000062 MOV TSSRCRS),R1 3sGET TSSR CONTENTS 
012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
020102 CMP R1,R2 sARE THEY EQUAL 
001406 BEQ 170$ sB8R, IF OK 
005237 002212’ INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, TO4TRL,PKTSSR sTSSR INCORRECT AFTER READ DATA 
104456 TRAP CSERHRD 
000746 «WORD 486 
046164’ WORD T24TRL 
011746' WORD PKTSSR 
1708: CKLOOP ;LOOP IF SELECTED 
104406 TRAP CSCLP1 
012703 000400 MOV 0256. ,R3 sRECORD SIZE 
013737 003114' 043762’ MOV FREE, T24RB sSTARTING READ BUFFER ADDRESS 
J SOSAASSAHSSASSASASHSSESAASASEEHEAEAOEHAEEHASEHEEEEESESEHAEEEEEKREREEEOEHREBEEED 
Hy 
sREAD REVERSE DATA,ACK COMMAND 
: 
FSSA HAAHASRSASHASASEHSEAARADEAESSESASEASSEAHESESASCEAEESAAEEHAEEEEEOEEEEE 
012737 100401 043760‘ MOV 100401, T24PK3 sREAD REVERSE DATA,ACK COMMAND 
012704 043760' 1953: MOV @T24PK3,R4 ;SET UP R4& WITH PACKET ADDRESS 
010337 043766' MOV R3,T24SZ 3SET UP RECORD SIZE IN PACKET 
010465 MOV R4,TSOBCRS) 3: ISSUE COMMAND 
004737 016150’ JSR PC ,WAITF sWAIT FOR SSR TO SET 
016501 000002 MOV TSSRC(RS),R1 3GET TSSR CONIENTS 
012702 100204 MOV @SSR!ISC!BiT2,R2] ;SET LP EXPECTED 
020102 CMP R1,R2 sARE THEY EQUAL 
001406 BEQ 200% 3;BR, IF OK 
005237 002212’ INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24TRL,PKTSSR sTSSR INCORRECT AFTER READ DATA 
104456 TRAP CsSERHRD 
000747 . WORD 487 
046164' . WORD T24TRL 
011746' «WORD PKTSSR 
200%: CKLOOP ;LOOP IF SELECTED 
104406 TRAP CSCLP1 
013701 043666‘ MOV T24BFR+14,R1 ;GET MESSAGE BUFFER (XxST3) 
010102 MOV R1,R2 sSET UP EXPECTED 
052702 000001 BIS @BITO,R2 ;SET THE RIB BIT IN EXPECTED 
020102 CMP R1,R2 sARE THEY EQUAL 
001406 BEQ 210% ;BR, IF EQUAL CALL IS WELL) 
005237 002212’ INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T24LOR,EXPREC ;THE RIB BIT WAS NOT SET IN xSTO 
104456 TRAP CSERHRD 
000750 . WORD 488 
044062’ . WORD T24L0R 
015374' . WORD EXPREC 
2108; CKLOOP 
104406 TR CsCLPl 
ENDSU8 3>>>>>>>>>>>> END SUBTEST »>>»>>>»>>»>>>> 
L10070: 
104403 TRAP CsESUB 
023727 002212’ 000017 CMP FATFLG,@15, 3IS ERROR COUNT AT 25 


E13 


MACRO M1113 0O1-FEB-84 17:54 


SEQ 160 


TSV7 - HARDWARE TE 
TEST 4: BASIC RE 


1034%2 
004° 37 


004737 
3002 


017104' 


016360' 
034312’ 


999%: 


163%: 


BLO 
JSR 


F13 


"Bat accroRwARD ano REbERSES: 8-84 17:54 


999% 
PC ,CKOROP 


PC, TSTLOOP 
163$ 
T24L00P 
TsT 


3? 
;LOCAI. STORAGE FOR THIS TEST 


SUBSYSTEM MEMORY COMMAND PACKET 


.BLK 
T24PACKET: 
WORD 
. WORD 
.» WORD 
. WORD 
T24DATA: 
WORD 
. WORD 
WORD 
. WORD 
T24D0SW: .WORD 
T24BFR: .BLKW 
3 
sWRITE 
. 
.BLKB 
T24PKe: 
. WORD 
. WORD 
.- WORD 
. WORD 
.BLKB 
T24PK3: 
. WORD 
T24RB: 
T24WB: .WORD 
.» WORD 
T24SZ: .WORD 
.EVEN 
3 
’ 
T24BF2 
T24BS0 BYTE 
T24BS1 BYTE 
T24S2: WORD 
T24S3: WORD 


10-<.-TSV2E7> 
100204 
T24DATA 

(9) 

10. 

T248FR 

0 

20. 

0 


0 
es. 


10-<, -TSV2E7> 
100206 

T24BF 2 

.°) 

6. 

10-<, -TSV2E7> 
100205 

FREE 

0 

i?) 


200 


BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


sD0 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP CsExIt 


-WORD 1L10052-. 


sCOMMAND PACKET FOR TEST 


sWRITE CHARACTERISTICS COMMAND, WITH IE, 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
s;CHARACTERISTICS DATA BLOCK 
sADDRESS OF MeSSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sORIVE SELECTION BITS 2-0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, If AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREAD COMMAND, IE AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sBSELO AREA 
;BSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


SEQ 161 


ACK 


TS 
TE 


Vv? 


- HARDWARE T 
ST 4: BASIC RE 


100005 
100405 
102005 
177777 
000000 


012701 
012721 
012721 
005021 
012721 


G13 
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EVEN 
s TAPE MOTION PACKET COMMAND VALUES 


T24RN: .WORD 


T24WOR: .WORD 
T24CON: .WORD 
wORD 


T24DLY: WORD 


100005 sREAD DATA (NEXT) 
100405 sREAD DATA RETRY 
102005 sWRITE CONTINOUS 
177777 sENO OF DATA 

0) sDELAY STORAGE AREA 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


T24NEF: .ASCIZ 
T24LOR: .ASCIZ 
T24WOG: .ASCIZ 
T24NXM: .ASCIZ 
T24WOF: .ASCIZ 
T24ILA: .ASCIZ 
T24L0Q: .ASCIZ 
T24SSR: .ASCIZ 
T24WOE: .ASCIZ 
T24B0T: .ASCIZ 
T24D0TA: .ASCIZ 
T24EOT: .ASCIZ 
T24T™: .ASCIZ 
T24RWN: .ASCIZ 


;¢ 


‘NEF Not Set After NON-EXECUTABLE FUNCTION’ 

‘RIB Not Set After READ REVERSE Into BOT’ 

‘TSSR Not Correct After Illegal Buffer Address Bits Set’ 
‘TSSR Not Correct After NXM Memory Address In Packet’ 
‘TSSR Not Correct After Illegal Mode Bits Set’ 

‘Illegal Address Bits, Failed To Set ILA Bit In xSTO’ 
‘Illegal Mode Bits, Failed To Set ILC Bit In xSTO’ 

*READ COMMAND Not Accepted’ 

*TSSR Not Correct After WRITE DATA Command’ 

‘Tape Not At BOT After REWIND Command’ 

‘Date Written To Tape Not Equal To Data Read From Tape’ 
‘READ DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

‘TSSR Not Correct After READ COMMAND Reject’ 

"Rewind (POSITION) Command Not Accepted’ 

‘RAM Error, Correct Date Pattern Not In Ram’ 

‘TSSR Init. Failed After READ COMMAND’ 

‘Orive 7 Select Failed To Set "“OFL” In TSSR’ 

‘TSSR Not Correct After READ DATA Command, SWB Bit Set’ 
‘TSSR Not Correct After READ DATA Command’ 

‘CvC Set, Didn''t Reset VCK In Message Buffer’ 

‘TSBA Not Correct After READ DATA Command’ 

‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading Long Record Failed To Set RLL Bit In XSTO’ 
"Reading Long Record Failed To Set RLS Bit In xSTO’ 
‘Residual Byte Count Incorrect After Short Record Read’ 
‘Reading Long Record Failed To Give Tape Status Alert’ 
-ASCIZ ‘Basic Read Data (Forward and Reverse)’ 


a 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYS M MEMORY COMMAND 


T24REST: 


sSAVE THE REGISTERS 


@T24PACKET,R1 sSTART OF THE PACKET 

#100004 ,(R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK, 
@T24DATA,(R1)>+ sADDRESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 


10.,(R1)+ * ;SIZE OF DATA BLOCK IN BYTES 


SEQ 162 


T 
T 


S 
€ 


V7 - HARDWARE T 
ST 4: 


BASIC 


RE 
012721 
005021 


043652' 
000024 
000000 
000030 
177777 
000000 


043740' 


043770' 


043760' 
000000 
000000 
000000 


043652’ 


64%: 


T24RT2: 


T24RT3: 


3;¢ 


-SBTTL TEST 5S: SPACE RECORDS 


H13 


"BataecroRWARD ANG AEERSES! FEB -84 17:54 


#T24BFR,CR1)>+ 
CR1)-+ 
#20.,CR1)+ 
CR1)>+ 


-(R2) 


@T24PK2,R1 
#100206,(R1)+ 
@T24BF2,(R1)+ 
(R1)+ 


@T24BF2,R1 
CR1)> 

(R1) 

PC 


@T24PK3,R1 


sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
sSELECT ORIVE ZERO 


sNUMBER OF LOCATIONS TO BE CLEARED 


sALL ONES TO MESSAGE BUFFER 
sNEXT LOCATION 

sCKECK FOR END OF LOOP 
sKEEP GOING UNTIL DONE 
sRETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 


sWRITE SUBSYSTEM MEM. WITH ACK, 


sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


RETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sCLEAR AREA OUT 

sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sRETURN 


L100S2: 
TRAP 


+ 

sTHIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 

sRECORDS REVERSE POSITION COMMANDOS OPERATE PROPERLY WHEN SPACING 

sOVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 

sIS VERIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST 

sSHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL 
sRESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 

sOF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 

sOF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH 

sRECORD INDICATE THAT RECORD’S RELATIVE POSITION ON TAPE. AFTER 

sEACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING 

sTHE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 

;THE EXPECTED RESULT. 
: 


3 
s;THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 
3 . 


Ie 


CseETsT 


SEQ 163 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


012737 


012737 


004737 
103427 


012727 
000000 


006256’ 
017176’ 
055230' 
016412’ 
000005 


055246' 
054060' 
055340’ 
055402’ 
176750 


015674’ 


000250 
002116' 
177772 
177756 
054062’ 
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MACRO M1113 01-FEB-84 17:54 SEQ 164 
1 
= 
BGNTST 
00217¢' MOV #EPRT2,EPRTSW sSECONDARY ERROR MESSAGE 
JSR PC ,KTOFF :DON' T NEED LOTS OF MEMORY 
MOV @TST25ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
002206 ' MOV 05, LOOPCNT ;PERFORM 5 ITERATIONS 
3° 
;TEST 5, SUBTEST 1 
. 
. 
;VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH 
;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
;THE VOLUME CHECK (VCK) FLAG IS SET. 
3 
: 
T25L00P : 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T5.1: 
TRAP C$BSUB 
JSR PC, TOSREST ;SET COMMAND PACKET 
CLR T25CNT ;CLEAR THE RECORD COUNTER AREA 
JSR PC, T25RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T25RT3 ;SET UP OTHER COMMAND PACKET 
054062! MOV 965000. , T25DLY ;SET UP LOOP COUNTER 


FPHAASAHAEAEAAAASHAESALEEEAEAEAESESEHEEEEEALEEAAEHERERAREEAREAEDEEE 


6 
sISSUVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
F FSAAASAAAAEAESESEASASDEAEHEAAEASEEHEEEASDEAEEEAREEEEEEAEAEEEKEAREREDEESD 


S$: JSR PC,SOFINIT s00 INITIALIZE ON CONTROLLER 
BCS 10$ ;BR IF INIT WAS OK 
DELAY 250 ;DELAY IF REQUIRED 
MOV #250,(PC)+ 
«WORD O 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE -20 
DEC T250L Y sDEC DELAY COUNTER 
BNE S$ ;BR, IF LOOP IS REQUIRED 
INC FATFLG sBUMP COUNT 
MOV TSSRCRS),.R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
: TRAP CSERDF 
-WORD 501 


-WORD SFIERR 
-WORD SFIMSG 


TSV7 - HARDWARE TESTS 1-8 


TEST 5: 


SPACE 


046652 
046652 
046660 


046664 
046670 
046672 
046676 
046700 
046700 
046702 
046704 
046706 


046710 
046710 
046712 
046716 
046720 
046722 
046726 
046726 
046730 
046732 
046734 
046736 
046736 


046740 
046744 
046746 
046752 
046754 
046756 
046762 
046762 
046764 
046766 
046770 


RECORDS 


013737 
012704 


011734' 


104406 
004737 
103407 
010001 
005237 


104456 
000767 
055035‘ 
011746’ 


104406 


013701 
010102 


06 
005237 


104456 
000770 
054225’ 
015374' 


002172" 
053700' 


010562’ 
002212' 


010714’ 


002212' 


053730' 


002212' 


J15 


MACRO M1113 0O1-FEB-84 17:54 SEQ 165 
053720' MOV UNITN, T250SW sSET UP DRIVE NUMBER 
MOV OT2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


PHAROS EAERAAARARAAEEEAEEEAEEEEERESEEEREEERADDDEEDEEDEERERARERS 
; 
s;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
§ APREAAAEAEREEEEEADEERAEEEAEEADEAEREEAAEEEAEEAEERERAERREEEARRERERERS 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BcS 15$ sBR, IF COMMAND ISSUED OK 

INC FATFLG BUMP COUNT 

MOV RO,R1 i SAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG , SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 502 


«WORD WRTMSG 
«WORD SFIMSG 


SHEARER EEAEAEAEEREEAREEREAEEEEAEEREREREEEADARAEREREEREDADEREAERS 
3 

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

3 

j APSA EREAEEAEEEEEEEEAEAEEERAEEEEAEEEEEEEEREEEEDERERAREREREDERE 


1S$: CKLOOP 
TRAP CsCLP1 


JSR PC ,REWIND s;CALL TAPE REWIND COMMAND 
BCS 30$ ;BR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T25RWN,PKTSSR ; REWIND NOT ACCEPTED 


TRAP CSERHRD 
«WORD 503 
-WORD T2SRWN 
-WORD PKTSSR 


TRAP CsCLP1 


308: CKLOOP sLOOP IF SELECTED 


J PAORAAOAEAEOAEAEREESAAEAEEEEAEEEREEEEEEREREREEEDEADDDDEDDEDEEEEEEE 
° 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


; 
SPEEA EEEEEAAEEAEEEAEEEEEEAEEEAEEAAEEEESEEERADHADEAEEEREDARLERALED 


MOV T25BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS oBiT1, R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 408 sBR, IF EQUAL (OK) 

INC FLG ;BUMP COUNT 

ERRHRD ERRNO. T25B0T ,EXPREC ; TAPE NOT AT BOT AFTER —— 


CSERHRD 
504 


. WORD T2S580T 
-WORD EXPREC 


K13 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 01-FEB-84 17:54 SEQ 166 
TEST 5S: SPACE RECORDS 
4040 046772 40$: CKLOOP ;LOOP IF SELECTED 
046772 104406 TRAP CS$CLP1 
4041 046774 012703 000400 MOV #256. ,R3 sRECORD SIZE 
aoak 047000 013737 003114' 054032’ MOV FREE, T25RB sSTARTING WRITE BUFFER ADDRESS 
4044 FRRRARAAARAEREERERAEEAAREREAEEEEEEEEEREAAEEREREREAERABAEEAEEREREREDRE 
4045 3 
aaa? ;WRITE DATA,ACK,CVC=1 COMMAND 
H 
4048 FRRRARAAEAAEEEEAREEREEAERERERERAEEEAREEAERABEEREERAAARAEEEEEREEEEEES 
4049 
4050 047006 012737 140005 9054030' MOV #140005, T25PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
4051 047014 012704 054030' MOV @T2SPK3,R4 3;SET UP R4 WITH PACKET ADDRESS 
4052 047020 65$: 
4053 047020 010337 054036' MOV R3,T25SZ ;SET UP RECORD SIZE IN PACKET 
4054 047024 013777 054060' 134062 MOV T2SCNT , OFREE ;LOAD UP RECORD COUNTER IN WRT BUFFER 
4055 047032 062737 000001 054060’ ADD #1, T25CNT ;GET READY FOR NEXT RECORD 
4056 047040 010465 000000 MOV R4, TSOBCRS) ; ISSUE COMMAND 
4057 047044 004737 016150’ JSR PC ,WAITF sWAIT FOR SSR TO SET 
4058 047050 016501 000002 MOV TSSRCRS),R1L ;GET TSSR CONTENTS 
4059 047054 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
4060 047060 020102 CMP R1,R2 sARE THEY EQUAL 
4061 047062 001411 BEQ 75% ;BR, IF OK 
4062 047064 032701 000004 BIT #BIT2,R1 ;CHECK FOR TAPE STATUS ALERT 
4063 047070 001014 BNE 120$ ;BR, IF TSA IS SET CSUSPECT IS EOT) 
4064 047072 005237 002212’ INC FATFLG sBUMP COUNT 
4068 047076 ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
047076 104456 TRAP CSERHRD 
047100 000771 .-WORD 505 
047102 005103' .~ WORD WRTERR 
047104 011746' .-WORD PKTSSR 
4064 047106 75$: CKLOOP ;LOOP IF SELECTED 
047106 104406 TRAP CSCLP1 
4070 047110 005203 INC R3 ;BUMP RECORD SIZE 
4071 047112 022703 001000 CMP #512. ,R3 ;END OF RECORD YET 
4072 047116 001340 BNE 65$ ;BR, IF MORE RECORDS TO WRITE 
4073 047120 000415 BR 125$ ;ENOUGH RECORDS 
4074 047122 120%: 
4075 
4076 FERRARA EEAREREEEEEAEAEEREEEEEEHOEDDAEEEDERAREDEESREDSDESEEREEHEEDESE 
4077 : d 
pode ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
; 
onat Perret rit rit Tet tir tri titirtrirtrrititi tit ititiitiittt iti itiit itt t) 
1 
4082 047122 013701 053730' MOV T/SBFR+6,R1 s;QUICK CHECK FOR EOT SET 
4083 047126 010102 MOV R1,R2 ;SET UP EXPECTED 
4084 047130 052702 000001 BIS #BITO,R2] ;SET THE EOT BIT XSTO 
4085 047134 020102 CMP R1,R2 ;IS THE EOT BIT SET IN XSTO 
4086 047136 001406 BEQ 125$ ;BR, IF SET (GOOD) 
4087 047140 005237 002212’ INC FATFLG ;BUMP COUNT 
4091 047144 ERRDOF ERRNO, T25NET ,EXPREC sDEVICE FATAL NOT EOT FOUND ETC. 
047144 104455 TRAP CSEROF 
047146 000772 . WORD 506 
047150 054361’ .WORD T2SNET 
047152 015374' WORD EXPREC 
4092 047154 125%: 


TSV7 -_HARDWARE 


TEST 3S: 


SPACE 


TESTS 1-8 


RECORDS 


011746' 


104406 
012737 
012704 


004737 
103407 
005237 
010001 


104456 
000774 
0C05046' 
011734' 


104406 
005737 
001044 


112737 


011746' 


104406 
012737 


010714’ 


002212’ 


000007 053720' 
053700' 


010562’ 
002212' 


002216' 


000200 054041' 
000010 054040' 
054010’ 
090000 


016236' 


002212' 


000007 053720’ 


Lis 


MACRO M1113 01-FEB-84 17:54 


SEQ 167 


FAASAAAAEAAAAASEAAEREEARARERAEEEERAEABRAAEAAEEEEAAEEEEASESASEEARERESE 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


5 
J AAAAAAAAAAARERSESEBAEAAAEAAERAREAESEEARERABRASESASESASEAASERADESEAESE 


130$: 


PC ,REWIND 
130$ 


G 
ERRNO, T2SRWN,PKTSSR 


#7, T2S0SW 
@T2SPACKET,R4 


sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
sSAVE TSSR 
sBUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP — 


“WORD T2S5RWN 
“WORD PKTSSR 


TRAP CSCLP1 
3SET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 


';LOOP IF SELECTED 


FAAMAAAAASERERASASSSEAAEAEAASEABRELAEBREBRABEERABSEEAEASASEEEEALEEEREREES 


5 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


J PAAAHASAARASSASESAREABADABEEREEEEAERABEBRAAESEAEAEAEEASERESESASEEESD 


140$: 


150$: 


PC,WRTCHR 

140% 

FATFLG 

RO,R1 
ERRNO,WRTMSG, SF IMSG 


EXTFEA 
160% 


#200, T258S1 

#10, T256S0 

@T25PKe ,R4 
R4,TSOBCRS) 
PC,CHKTSSR 

150$ 

RO,R1 

FATFLG 

ERRNO, T25SSR,PKTSSR 


#7,T2S50SW 


; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
;BUMP COUNT 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 


-WORD 508 

-WORD WRTMSG 

-WORD SFIMSG 
sSCOPE LOOP 

TRAP C$cLP1 


;CHECK FOR EXTENDED FEATURES 
;BR IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 
;FUNCTION SELECTION BIT CTURN ON EXTFEA HW SWITCH) 
sWRITE SUBSYS MEM PACKET 


;BR, IF NO ERROR 
sERROR, SAVE TSSR 


; BUMP COUNT 
:TSSR NOT CORRECT AFTER oF er St 
-WORD 509 


-WORD T25SSR 
-WORD PKTSSR 


TRAP CsCLP1 


;LOOP IF SELECTED 
;SET UP DRIVE NUMBER 


TES} “st"SPACE REEORBS' © 


4144 
4145 
4146 
4147 
4148 
4149 


047330 


012704 


012737 


054272' 
011746' 


104406 


104403 


053700' 


010562' 
002212' 


000002 
000100 


002212’ 


140010 
000001 
054030' 
000000 


016150' 
00000 


2 
100306 


002212' 


M13 


MACRO M1113 01-FEB-84 17:54 


054030' 
054032’ 


MOV @T2SPACKET ,R4 


sSUBROUTINE NEEDS PACKET ADDRESS 


{PRAAAAAAAAEEAAAEEEREEEEEREREREEEDEEEEEREREAAEREEEDEEEADEEEEEEEEEEE 
3 
s;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
{PRAAAAASARARAADEEAASARAREARERESEAEREEAARABABASEABRAASRABRESESSEEEKREDES 


160$: 


170$: 


JSR PC ,WRTCHR 
BCS 160$ 

INC FATFLG 
MOV RO 


eR1 
ERRHRD ERRNO,WRIMSG,SFIMSG 


CKLOOP 

MOV TSSRCRS),R1 
BIT #OFL,R1 

BNE 170$ 


G 
ERROF ERRNO, T2SOFL,SFIMSG 


CKLOOP 


sISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
s;BUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC ‘yy 


sSCOPE LOOP 


TRAP CsCLP1 

3GET TSSR CONTENTS 

sCHECK FOR THE OFFLINE BIT SET 

;BR, IF OFFLINE (GOOD) 

s;BUMP COUNT 

;OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CSEROF 
-WORD 511 
«WORD T2S0FL 
«WORD SFIMSG 
TRAP CscLP1 


;LOOP IF SELECTED 


{ FAAAAAAESAESEAAASAAERAAAERAOAAESASESAEELAREAEAEERESSASEAESEASEEASASESD 


; 
sSPACE FORWARD COMMAND IN PLACE 
; 


J SPAAAREASARASSASAAASAREASESEAAEEASEERERHAASEEAEEEAAEAEAASESASESEBESSD 


180$: 


190$: 


MOV #140010, T25PK3 

MOV #1, T25RB 

MOV @T25PK3,R4 

MOV R4,TSDBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR!ISCIOFL!BIT1!BIT2,R2 
CMP R1,R2 

BEQ 190$ 

INC FATFLG 


ERRHRD ERRNO, T25TM,PKTSSR 


CKLOOP 
ENDSUB 


sSPACE FORWARD COMMAND IN PLACE 
sNUMBER OF RECORDS TO SPACE 
3R4 = POINTER TO PACKET 
3 ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
;BR, IF OK ESP. FUNCTION REJECT 
;BUMP COUNT 
;TSSR INCORRECT AFTER TAPE MOTION CMD 
TRAP CSERHRD 


-WORD T25TM 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCLP1 


;>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L1007e: 
TRAP CSESUB 


SEQ 168 


T 
T 


7 «= 


SV HARDWARE TE 
EST 5S: SPACE REC 


047476 
047504 
047506 
047512 


047512 
047512 
047512 
047514 
047520 
047524 


047566 
047572 
047574 
047600 
047602 
047602 
047604 
047606 
047610 


023727 
103402 
004737 


104402 
004737 
004737 
004737 


012737 
012704 


004737 
103407 
005237 
010001 


104456 
001002 
005046' 
011734’ 


bros) ° 


002212' 
017104’ 


055246' 
055402" 
055340' 


015674' 
002212' 


000007 
053700' 


010562" 
002212' 


N13 


MACRO M1113 0O1-FEB-84 17:54 SEQ 169 
000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 

BLO 999$ sBR, IF LESS THAN 25 

JSR PC ,.CKDROP sTRY TO DROP THE UNIT 


053720' 


999$: 


: 
sTEST S, SUBTEST 2 


; 

sVERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH 
sTHE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF 
3 THE VOLUME CKECK (VCK) FLAG IS SET. 

3 


Hy 

; 

BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TS.2: 


s TRAP CsBSUB 


JSR PC, T2SREST ;SET COMMAND PACKET 
JSR PC, T25SRT3 sSET UP OTHER COMMAND PACKET 
JSR PC, T2SRT2 sSET UP OTHER COMMAND PACKET 


POPP CT errr rrr rrr rrr irrrrrrrrrrtirittririttittttttttttTTttttT 
; 

sISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

; 


§ FRAAAREREAAAESERARAABAEEREEEREREALERARERAREERAASEEAAEAEAEEEESEAEERESD 


JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 

BCS 10$ ;BR IF INIT WAS OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 513 
-WORD SFIERR 

? WORD SFIMSG 
10$: MOV #7, T2S50SW ;SET UP DRIVE NUMBER 
MOV #T2SPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


J PREAEREEEEESEEEEREREERAEEEAEAAREAAEARAAEREAERARRAAEAEERAREEAEEEREE 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
FRA AAEAAEAEEAAAEAEEAERERAEAEEAEEBABRAAAREEABREBAERSEADEEEASLEEEADAAEREEEERSE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 15$ ;BR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
WORD 514 


“WORD WRTMSG 
"wORD  SFIMSG 


TSV7 - HARDWARE TESTS 1-8 


TEST 5S: SPACE RECORDS 


4246 
4247 
4248 
4249 
4250 


4296 


047734 
047740 
047742 
047746 
047750 
047750 
047752 
047754 
047756 
047760 


011746’ 


104406 
005737 
001044 


112737 
112737 


011746' 


104406 
012737 
012704 


010714' 


002212" 


002216’ 


000200 054041' 
000010 054040° 
054010' 

000000 

016256’ 


002212" 


000007 053720’ 
053700° 


010562’ 
002212’ 


B14 


MACRO M1113 01-FEB-84 17:54 SEQ 170 


POPUP rrrrrrrrirrririiriirriiiiiiiriiiiiititi tii iii 
3 

s ISSUE REWIND COMMAND 'O SELECTED TAPE DRIVE 
sSbacenbanssamensecnianetoenenesseennanssnnscnnsonanbneonnenesees 


15%: CKLOOP 
TRAP CsCLPi 


JSR PC ,REWINOD sCALL TAPE REWIND COMMAND 
Bcs 30% sBR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T25RWN,PKTSSR ; REWIND NOT ACCEPTED 


[WORD -T25RWN 
"WORD PKTSSR 


30$: CKLOOP sLOOP IF SELECTED a 
$CL 
1408: TST EXTFEA sCHECK FOR EXTENDED FEATURES SW SWITCH 
BNE 160% sBR IF SWITCH IS ON 
MOVB #200, 725851 sWRITE MISCELLANEOUS CONT/READ STATUS 
MOVB #10, T258S0 sFUNCTION SELECTION BIT (TURN ON EXTFEA Hw SWITCH) 
MOV @T25PK2 ,R4 sWRITE SUBSYS MEM PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC, CHKTSSR sWAIT FOR SSR 
BcS 1508 sBR, IF NO ERROR 
MOV RO,R1 sERROR, SAVE TSSR 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T25SSR,PKTSSR sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
-WORD 516 
-WORD T25SSR 
-WORD PKTSSR 
1508: CKLOOP sLOOP TF SELECTED 
TRAP CsCLPl 
MOV 07, 7250S sSET UP ORIVE NUMBER 
MOV @T2OSPACKET ,R4 sSUBR™ INE NEEDS PACKET ADORESS 


PPP rrrriiririiriiiiiiiiiriiriiirirriirriitiiiiiritiyiTtt 
3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


‘ 
FFSSSSOSHSSSSSESESHSESSSSSSSHSSESSSSSHEHOSHSHSSSSHEESHEHSEEHESEHEAEEOEES 


JSR PC, ,WRICHR sISSUE WRITE CHARACTERISTICS 

BCS 1608 1BR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRIMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 51? 


-WORD = WRIMSG 
«WORD SF IMSG 
1608; CK. 00P +SCOPE LOOP 


C14 


TSV7 - MAROWARE TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 7 
TEST 5: SPACE RECORDS sapsie 
047760 104406 TRAP CSCLP1 
4297 047762 016501 000002 MOV TSSRC(RS),R1 sGET TSSR CONTENTS 
4298 047766 032701 000100 BIT OOFL .R1 sCHECK FOR THE OFFLINE BIT SET 
4299 047772 001006 BNE 1708 sBR, IF OFFLINE (GOOD) 
4300 047774 005237 002212’ INC FATFLG sBUMP COUNT 
4304 050000 ERRDOF ERRNO, T250F ., SF IMSG OF F LINE SHOULD HAVE as ~ - (BAD) 
050000 104455 CSEROF 
050002 001006 TNORO 518 
050004 055104’ WORD T250FL 
050006 011734' WORD SF IMSG 
4305 050010 1708; CKLOOP sLOOP IF SELECTED 
0306 050010 104406 TRAP CSCLP1 
4307 FESSSSSSSSSSASSSHESHEHEHSHESSEHEHESSEEESSEESHSEEEHSHEEHESEEEEEEEEHHEEEEEERES 
4308 a 
oe sSPACE REVERSE COMMAND IN PLACE 
i 
4311 FSSSSSASHSSSSSSSSHSHASEHEHHSHHHSSESEHSESESSHESEEHEHEEEEEEHEEHEHEEEEEEEEEE 
43le 
4313 050012 012737 100410 054030 1803: MOV @100410, T25PK3 +SPACE REVERSE COMMAND IN PLACE 
4314 050020 012737 000001 054032’ MOV 1, T7258 sNUMBER OF RECORDS TO SPACE 
4315 050026 012704 054030’ MOV @T2S5PK3,R4 sR4 = PUINTER TO PACKET 
4316 050032 010465 000000 MOV R4,TSOB(RS) :ISSUE COMMAND 
4317 050036 004737 016150’ JSR PC ,WAITF sWAIT FOR SSR TO SET 
4318 050042 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
4319 050046 012702 100306 MOV @SSR'SC:OFLIBITIIBIT2,R2 sSET UP EXPECTED 
4320 050052 020102 CMP R1,R2 sARE THEY EQUAL 
4321 050054 001406 BEQ 190% s6R, IF OK ESP. FUNCTION REJECT 
4322 050056 005237 002212’ INC FATFLG ;BUMP COUNT 
4326 050062 ERRHRD ERRNO, T25TM,PKTSSR sTSSR INCORRECT AFTER TAPE MOTION CMD 
050062 104456 TRAP CSERHRD 
050064 001007 . WORD 519 
050066 054272’ . WORD T25TM 
050070 011746’ . WORD 2K TSSR 
4327 050072 190%: CKLOOP sLOOP IF SELECTED 
050072 104406 TR CsCLP1 
4328 050074 ENOSUB g>>>>>>>>>>>> END SUBTEST »>>>>>>>>> >> 
050074 10073: 
050074 104403 TRAP CsESUB 
4329 050076 023727 002212’ 000017 cmp FATFLG,@15. :IS ERROR COUNT AT 25 
4330 050104 103402 BLO 999% ;BR, IF LESS THAN 25 
4331 050106 004737 017104° JSR PC ,CKDROP sTRY TO OROP THE UNIT 
4332 050112 999%: 
4333 
4334 3° 
4335 : 
aant sTEST 5, SUBTEST 3 
é 
4338 sVERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
aaea sRECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED. 
° 
4341 ; 
4342 ; 
4343 :- 
4344 050112 BGNSUB g>>>>>>>>>2>> BEGIN SUBTEST »>>>>>>>>>>> 
050112 5.3: 


050112 104402 RAP CsBSU8 


test “st *SBKEPEREEGASS! “® 


4397 


050240 


004737 055246' 
004737 055340' 
004737 055402' 


004737 015674' 
005237 002212’ 


011734' 


013737 002172' 053720' 


012704 053700’ 


004737 010562' 
065237 002212’ 


104406 
004737 010714' 
103407 


010001 
005237 002212’ 


104456 
00101? 
055035 
011746’ 


D14 


MACRO M1113 0O1-FEB 84 17:54 


Ssh PES TSR. I3ET UP OTHER COMMAND PACKET 

JSR c T25RT sSET UP OTHER PACKET 
PUPP P I rrrrrrrrrrriiirriiiiiiirrririiririiiiiiriiiiittt) 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


+ 
FPPOSSHHASSEHSEHSEHASEEHEEHEESEEEESEEEHHOEEEAAEEEEESHEREEEEEEOO*OOREEE 


JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 
6cS 10% 3BR IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS eg A 
A 
. WORD 
. WORD 
. WORD 
108; MOV UNITN, T250SW sSET UP ORIVE NUMBER 


MOV @T2SPACKET ,R4 
aaa aa ak eatin Laan ta 
rAITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


, aauasnnsieesnnenninbeninasedenteimmandeminadnasmebdinaadaeinans 


JSR PC,WRTICHR sISSUE WRITE CHARACTERISTICS 

BCS 15% ;BR, IF COMMANDO ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRIMSG, SF IMSG sWRITE CHARACTERISTISC eo +> 
. WORD 
. WORD 
. WORD 


FPSSSSHSHSHSSSSSSHSSEASSSESSSESHESSEHHHEEEHEESHEHHEHEEHEEHEEEEHHSEEHEEOEEEE 


: 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
FFSSSSHASHEHHSHHSOSEHEHSEHSHESEHEESOSHESHEHEHEEEHEHEEHHESHEHHEHREEHEKEEHOEEEE 


158; CKLOOP 


TRAP 

JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

BCS 30% sBR, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

INC FATFLG s6UMP COUNT 

ERRHRD ERRNO, T25RWN,PKTSSR ; REWIND NOT ACCEPTED oer: 
. WORD 
. WORD 
. WORD 


30%: CKLOOP sLOOP IF SELECTED 


sSUBROUTINE NEEDS PACKET ADDRESS 


CsCLP1 


CSERHRD 
S22 
T25RWN 
PKTSSR 


SEQ 172 


TSv7 


- HARDWARE TESTS 1-8 


TEST 5S: SPACE RECORDS 


050240 


050366 


104406 


013701 053730’ 


000002 


002212 


015374°' 


104406 


012737 000001 054032’ 


012737 140010 054030' 
012704 054030’ 


002212' 


015374' 
104406 


013701 053750’ 


E14 
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FMMOSAAAEAAAEAAASEAALESEAEEEAEDEAEEEEEEADEREREREEEADEAERAEREEEDEOEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


a 
F PHAOAESARAEEAEHASHEEEEREAEEASARERERASEHAREEAREEEEAEEADREREEHEREALES 


MOV T25BFR+6,R1 
MOV R1,R2 

BIS oBIT1,R2 
CMP R1,R2 

BEQ 40% 


INC FATFLG 
ERRHRD ERRNO, T25B0T ,EXPREC 


403: CKLOOP 


MOV #000001, T25RB 


FPSOSSASASHASOAEHEAEEEEAEEHSESEESAEAAESEEEEEHEEAREAEEAERAOEEEEEEROEE 


; 
sSPACE FORWARD,ACK,CVC=1 COMMAND 
; 


OPS AHSEHEEEAEAEOEAAEEEAEADEEEHESEDEOEAEEEEODHREREEEEOEEEEDEEEDES 


MOV #140010, T25PK3 

MOV @T25PK3,R4 
65$: 

MOV R4,TSOB(RS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR,R2 

CMP R1,R2 

BEQ 753 

BIT #BIT2,R1 

BNE 75$ 

INC FATFLG 

ERRHRD ERRNO, TOSWDE ,EXPREC 
753%: CKLOOP 
1208: 


TRAP CsCLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC’D 
sBR, IF EQUAL (OK) 
sBUMP COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 523 
-WORD T2SB0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 
sNUMBER OF RECORDS TO SPACE OVER 
sSPACE FORWARD,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
BR, IF OK 
sCHECK FOR TAPE STATUS ALERT 
sBR, IF TSA IS SET (SUSPECT IS EOT) 
sBUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 524 
. -WORD T2SwWDE 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLPlL 


FPSSOSHSESESEEAESEHEEEEHESEEASEOEAEREEEEAEAAEDEASAHEREOREAEEDEDEDRDE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
4 


FPPMASSSHEEEAOHOHESASHESEAEAEASEAEEHAEEEEOAEEEEEEEEEDHEHAORERERERELEE 


MOV T25BFR+6,R1 


sQUICK CHECK FOR BOT SET 


SEQ 173 


F14 


TSV? - HARDWARE TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 SEQ 174 
TEST 5: SPACE RECORDS 

4450 050372 010102 MOV R1,Re2 sSET UP EXPECTED 

4451 050374 042702 000002 BIC #BIT1,R2 sCLEAR THE BOT BIT (xSTO) 

4452 050400 020102 CMP R1,R2 sIS THE EOT BIT SET IN xSTO 

4453 050402 001406 BEQ 125% 3BR, IF SET (GOOD) 

4454 050404 005237 002212’ INC FATFLG sBUMP COUNT 

4458 050410 ERRHRD ERRNO, T25B8NC,EXPREC sB0T NOT CLEARED AFTER SPACE FROM BOT 
050410 104456 TRAP CSERHRD 
050412 001015 «WORD 525 
050414 054520’ . WORD T25BNC 
050416 015374’ . WORD EXPREC 

4459 050420 1258: CKLOOP 
050420 104406 TRAP CSCLP1 

4460 050422 004737 055402' JSR PC, T25RTS ;CLEAN UP PACKET 

ree | 050426 012737 000401 054036’ MOV $257.,T25SZ sSET THE CCRRECT SIZE UP 

6 

4463 FORAERAOASESAAAEAOEEDAEEEAOEEAEAAEEDOERAERERERDEDEEDEDEAEEREREREEEEE 

4464 ; 

cone sREAD DATA COMMAND IN PLACE 

66 ; 

4467 FPRAAASEEESOLEREAERSAEREAEDAEEEERAEMAREREEEREDAREREDERDERADARERADES 

4468 

4469 050434 012737 140001 054030’ MOV #140001, T25PK3 sREAD DATA COMMAND IN PLACE 

4470 050442 013737 003114’ 054032: MOV FREE, T25RB sREAD BUFFER ADDRESS TO PACKET 

4471 050450 012704 054030' MOV @T25PK3,R4 3R4 = POINTER TO PACKET 

4472 050454 010465 000000 MOV R4,TSOBCRS) s ISSUE COMMAND 

4473 050460 004737 016150’ JSR PC ,WALTF sWAIT FOR SSR TO SET 

4474 050464 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

4475 050470 012702 000200 MOV @SSR Re ;SET UP EXPECTED 

4476 050474 020102 CMP R1,R2 sARE THEY EQUAL 

4477 050476 001406 BEQ 190$ 3BR, IF OK ESP. FUNCTION REJECT 

“478 050500 005237 002212’ INC FATFLG ;BUMP COUNT 

4482 050504 ERRHRD ERRNO,RDERR,PKTSSR ;TSSR INCORRECT AFTER READ DATA CMD 
050504 104456 TRAP CSERHRD 
050506 001016 » WARD 526 
050510 005176’ » WORD RDERR 
050512 011746’ . WORD PKTSSR 

4483 050514 190$: CKLOOP ;LOOP IF SELECTED 
050514 104406 TRAP CsCLP1 

4484 050516 017701 132372 MOV OFREE ,R1 ;GET FIRST WORD FROM BUFFER 

4485 050522 012702 000001 MOV #1,R2 ;SET UP EXPECTED 

4486 050526 020102 CMP R1,R2 ;WAS RECORD NUMBERED 1 

4487 050530 001406 BEQ . 200% ;BR, IF CORRECT RECORD 

4488 050532 005237 002212’ INC FATFLG ;BUMP COUNT 

4492 050536 ERRHRD ERRNO, TOSWNG,EXPREC :;SHOULD HAVE BEEN RECORD NUMBER 1 
050536 104456 TRAP CSERHRD 
050540 001017 .» WORD S27 
050542 054435’ . WORD T25WNG 
050544 015374’ . WORD EXPREC 

4493 050546 2008: CKLOOP 
050546 104406 TRAP CsCLPL 

4494 050550 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
050550 L10074: 
050550 104403 TRAP CsESUB 

4495 050552 023727 002212’ 000017 CMP FATFLG,@15. :Is ERROR COUNT AT 25 

4496 050560 103402 BLO 999% ;B8R, IF LESS THAN 25 

4497 050562 004737 017104’ JSR PC ,CKDROP ;TRY TO OROP THE UNIT 


4498 050566 999%: 


TSv7 - 


HARDWARE TESTS 1-8 
TEST S: SPACE RECORDS 


013737 
012704 


004737 
103407 
005237 
010001 


104456 
001021 
005046' 
011734' 


104406 


055246 ' 
055340' 
055402' 


015674' 
002212' 


002172' 
053700’ 


010562’ 
002212' 


G14 
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053720' 


3¢ 
; 
a S, SUBTEST 4 


; VERIFIES THAT SPACE Ay ge REVERSE 
sOVER THE FIRST RECORD ON TAPE. 

; 

; 

g- 


BGNSUB 

JSR PC, T2SREST 
JSR PC, T2SRT2 
JSR PC, T25SRTS 


CAN SPACE BACK 


SEQ 175 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
75.4: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 


§ PPAR REDAEESEEEEEEESEAEEAEREERERAREEEEEEEEAEEDEEEEEREEDEEEES 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
S MPREHAEEAEAEDASAASEAEAEEEHASASADEASADEEEEHEAAEREAASHAEAREDALEEEEREE 


JSR PC, SOF INIT 
20$ 


BCS 
INC hay 
MOV RO,R 


ERROF ERRNO, SFIERR, SF IMSG 


208: MOV UNITN, T250SW 
MOV @T2SPACKET ,R4 


JSR PC, WRTCHR 
BCS 2es$ 

INC Ag 
MOV 


R1 
ERRHRD ERRNO, WRTMSG, SF IMSG 


25$: CKLOOP 


300 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF ISSR REGISTER 

tFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 


;SET UP DRIVE NUMBER 


CsBSUB 


SFIERR 
SF IMSG 


; SUBROUTINE NEEDS PACKET ADDRESS 


SPAAMEEOOMAESEEEESEAESESEEEEEEEEEAEEEEAEOREEEEAREADEDEREDEDEEEDEEES 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
S PERESEEAESEAAESASEAEHEEEAESAEEASEEEAEERESHAREARASASAERARERERARELEE 


sISSUE WRITE CHARACTERISTICS 
;8R, IF COMMAND ISSUED OK 
sBUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC eS 


;LOOP IF SELECTED 
TRAP 


FFAS HAEAEEHADEHEAEEAEAEEEESEEHAAEAHMAAEAERESEEAREAREEAREARHARERRADEDS 


CSERHRD 
S29 

WRTMSG 
SF IMSG 


CsCLP1L 


T 
T 


Ss 
E 


H1i4 
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ST 5: SPACE REEORDS . 
433} ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
o 
4553 FORAAAAARERASEAASAAREEARERESEAEEEREEAEEEAEEAEEEEEEE! Of HARE EEEREEEE 
4554 
4555 050670 004737 010714' JSR PC, REWIND s;CALL TAPE REWIND COMMAND 
4556 050674 103407 Bcs 30$ ;8R, IF NO PROBLEM 
4557 050676 010001 MOV RO,R1 s;SAVE TSSR 
4558 050700 005237 002212: INC FATFLG ;BUMP COUNT 
4562 050704 ERRHRD ERRNO, TOSRWN,PKTSSR sREWIND NOT ACCEPTED 
050704 104456 TRAP CSERHRD 
050706 001022 .WORD 530 
050710 055035' .WORD T2SRWN 
050712 011746’ .WORD PKTSSR 
4563 050714 30$: CKLOOP ;LOC~ IF SELECTED 
cae 050714 104406 TRAP CSCLP1 
4565 FY SASASASAEAAAEASEAAAAHASSESASASCESAALASASCHASSASSEAASHASAEKASEAALEHAESESE 
4566 ; 
er ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
; 
4569 J SHRAAAAHAAASEASEESEARAAEASARASEAEEASERALESEESEEEAEEEAAESEEEESESEHESSE 
4570 
4571 050716 013701 053730’ MOV T25BFR+6,R1 sPICK UP xSTO 
4572 050722 010102 MOV R1,R2 3SET UP EXPECTED 
4573 050724 052702 000002 BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 
4574 050730 020102 CMP R1,R2 s;D0ES EXP = REC'D 
4575 050732 001406 BEQ 40$ 3;8R, IF EQUAL (OK) 
4576 050734 005237 002212’ INC FATFLG ;BUMP COUNT 
4580 050740 ERRHRD ERRNO, TOSBOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
050740 104456 TRAP CSERHRD 
050742 001023 .WORD 531 
050744 054225’ .WORD T2580T 
050746 015374’ .WORD EXPREC 
4581 050750 40$: CKLOOP ;LOOP IF SELECTED 
aes 050750 104406 TRAP CsCcLP1 
aeaa FPHSaSASSAHAASHEASADAEASEAAEHAHREESAEAESEEEHEAEAEEADASESHASEEAEADEAESEEEKSD 
4584 3 
4585 ;ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
Seat ;BIT 15 SETS DIRECTION - O=FORWARD 1 =REVERSE 
oy 
rio: FSHAASSESEHARESESEAEASHEHSHHAEAAAEEASESEASAASASSESAEEEAESEAEASCEEEESASEEEE 
4590 050752 012703 000001 MOV #000001,R3 s;NUMBER OF RECORDS TO SPACE FORWARD 
4591 050756 (004737 010366’ JSR PC, SPACE ;CALL SPACE COMMAND 
4592 050762 103410 BCS 50$ s;CHECK FOR ERROR 
4593 050764 016501 000002 MOV TSSR(RS),R1 ;GET TSSR CONTENTS 
4594 050770 005237 002212' INC FATFLG ;BUMP COUNT 
4598 050774 ERRHRD ERRNO, T25WDE,SFFMSG ;SPACE FORWARD FAILED 
050774 104456 TRAP CSERHRD 
050776 001024 .WORD 532 
051000 054145’ .WORD T2S5wWOE 
051002 012002’ .WORD SFFMSG 
4599 051004 50$: CKLOOP ;LOOP TF SELECTED 
051004 104406 TRAP CsCLP1 
4600 051006 012737 000001 054032’ MOV #1, T25RB s;NUMBER OF RECORDS TO SPACE OVER 


SEQ 176 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


051014 
051022 
051026 
051026 
051032 


051074 


051102 
051110 
051114 
051120 
051124 
051130 
051134 
051140 
051142 
051144 
051150 
051150 
051152 
051154 
051156 
051160 
051160 
051162 
051166 
051172 
051174 
051176 
051202 
051202 


012737 
012704 


011746' 
104406 


012703 
013737 


012737 


140410 
054030' 


000000 
016150' 
000002 


000200 


002212' 


000400 
003114’ 


140001 
054030' 
054036' 
000000 


016150’ 
000002 
000200 


002212' 


131726 
000000 


002212' 


I14 
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054030’ 


054032’ 


054030' 


SEQ 177 


J AAARARARARERERERAEEAEABDAREAAAEEAAEERAREDEEEEEREDEAEHABRASREREEAEEEEEE 


é 
;SPACE REVERSE ,ACK,CVC=1 COMMAND 


é 
FERAAARAHAAAAAABASEEAAAAEERABERAEEAABDASEAEREASALEEASEEAHEEADAEASAEESEEESE 


65$: 


75$: 


1208: 


MOV #140410, T25PK3 
MOV OT25PK3,R4 

MOV R4, TSOBCRS) 
JSR PC,WALTF 

MOV TSSRCRS),R1 
MOV @SSR,Re 

CMP R1,Re2 

BEQ 75$ 


INC FATFLG 
ERRHRD ERRNO, T2SWDE ,PKTSS® 


CKLOOP 


MOV #256. ,R3 
MOV FREE, T2SRB 


sSPACE REVERSE ,ACK,CVvC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 

sBR, IF OK 


sBUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 533 
-WORD T2SWDE 
-WORD PKTSSR 


TRAP CsCLP1 


;LOOP IF SELECTED 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


‘ipa sane eae car lin itso albeit 
:READ DATA,ACK,CVC=1 COMMAND 


| 60006000000000000000000000000000006000R000000R0000000R00Rs0RTNNESE 


165$: 


170%: 


MOV #140001, T25PK3 
MOV @T25PK3,R4 

MOV R3,T25SZ 

MOV R4, TSOBCRS) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 170$ 

INC FATFLG 


ERRHRD ERRNO,RDERR,PKTSSR 


CKLOOP 

MOV OFREE ,R1 
MOV #0 ,R2 
CMP R1,R2 
BEQ 200% 


INC G 
ERRHRD ERRNO, T2SWNG,EXPREC 


sREAD DATA,ACK,CVC=1 COMMAND 
3SET UP R4 WITH PACKET ADDRESS 
;SET UP caaiede SIZE IN PACKET 


sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 


;B8R, IF OK 

;BUMP COUNT 

3TSSR INCORRECT AFTER READ DATA 
TRAP CSERHROD 
WORD 534 


-WORD RDERR 

«WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sGET FIRST WORD FROM BUFFER 
3SET UP EXPECTED 
sWAS RECORD NUMBERED 1 
;BR, IF CORRECT RECORD 
sBUMP COUNT 
;SHOULD HAVE SEEN gpa” NUMBER 1 
RAP CSERHRD 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


4694 
4695 
4696 
4697 


051226 
051232 


051232 
051232 
051232 
051234 
051240 
051244 
051250 
051256 
051264 


051272 
051276 


001027 
054435' 
015374' 


104406 
104403 
023727 


103402 
004737 


013737 


002212’ 
017104' 


055246' 
055340' 


015674' 


000250 
002116' 
177772 
177756 
054062’ 


000002 
0022 12' 


J14 


SEQ 178 


MACRO M1113 01-FEB-84 17:54 
.» WORD 535 
. WORD T25WNG 
. WORD EXPREC 
200: CKLOOP 
TRAP CSCLP1 
ENDSUB8 3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10075: 
TRAP CsESUB 
000017 CMP FATFLG,#15. ;IS ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 
999$: 
3¢ 
. 
;TEST S, SUBTEST 5S 
3 
;VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE, 
;WHICH EVER IS LESS. 
a 
3 
: 
teed 
BGNSUBS 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
Tacs 
TRAP C$BSUB 
JSR PC, T2SREST ;SET COMMAND PACKET 
JSR PC, T25SRT] ;SET UP OTHER COMMAND PACKET 
JSR PC, T25RT3 ;SET UP OTHER COMMAND PACKET 
054056' MOV T2SCNT , T2ESCN2 sHOLD NUMBER OF RECORDS 
054056' SUB @2,T25CN2 ;ACTUAL NUMBER OF RECORDS ON TAPE 
054062' MOV T25CNT, T2SDLY ;SET UP REWIND DELAY COUNTE™ 


FFAASEHAAHAASASHASADAEHESERESHAAASEHHEHEESEDREEAEAS+ CHEEK EEDHADADAEDEDEEE 


‘ 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
J ASHHAAHEHEHASEASSEHASHASHESASSESHASEEERESAEESEAREASEHKEDEASESEADAEEADEZELERAS 


10%: JSR PC, SOF INIT 
BCS 20$ 
DELAY 250 
DEC T250L Y 
BNE 10$ 
MOV TSSRCRS),R1 
INC FATFLG 


:00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
sWAIT ABOUT .25 SECONDS 


MOV #250,(PC)+ 
-WORD O 

MOV LSOLY,(PC)+ 
-WORD O 

DEC -6(PC) 

BNE .-4 

DEC -22¢PC) 
BNE --20 


sDEC COUNTER 

;BR, IF MORE LOOPS REQUIRED 
sCONTENTS OF TSSR REGISTER 

sBUMP COUNT 


K14 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 01-FEB-84 17:54 SEQ 179 
TEST 5: SPACE RECORDS 
4701 051346 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
051346 104455 TRAP CSEROF 
051350 001030 .» WORD 536 
051352 003642’ . WORD SFIERR 
051354 011734' - WORD SF IMSG 
4702 051356 20s: 
4703 051356 013737 002172' 053720' MOV UNITN, T250SW ;SET UP UNIT NUMBER 
aren 051364 012704 053700' MOV #T2S5PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
4706 FARRAAAERARHEARERRAEREEAEAERAREEAEEAEAREEEEREREEEEREAAREEEEEREEEEEEE 
4707 H 
fhe ;sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 
4710 FPARARARARARAAEAERARARAAEEREARAEERABAREEAEREAAAREEAEEAEEEEEEERERERES 
4711 
4712 051370 004737 010562’ JSR PC,WRTCHR s; ISSUE WRITE CHARACTERISTICS 
4713 051374 103407 BCS 2e5$ 3;B8R, IF COMMAND ISSUED OK 
4714 051376 005237 002212’ INC FATFLG ;BUMP COUNT 
4718 051402 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4719 051404 ERRHRD ERRNO,WRTMSG,SFIM:z sWRITE CHARACTERISTISC FAILED 
051404 104456 TRAP CSERHRD 
051406 001031 .WORD 537 
051410 005046' .- WORD WRTMSG 
051412 011734' .- WORD SF IMSG 
4720 051414 25%: CKLOOP ;LOOP IF SELECTED 
eve. 051414 104406 TRAP CSsCLP1 
rte PET TPE CUCU CCST er errrrire rrr tris er irirrrrrrrr rrr irirerivvrrrrrryy | 
; 
rf ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
H 
fh | {Pe eeaeeeeee REAASARAEABARAAAERALABAHAAAASAAAALESASEARABAASAALAEASALEE 
472 
4728 051416 004737 010714' JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
4729 051422 103407 Bcs 30$ ;BR, IF NO PROBLEM 
4730 051424 010001 MOV RO,! ;SAVE TSSR 
4731 051426 005237 002212’ INC FATFLG ;BUMP COUNT 
4735 051432 ERRHRD ERRNO, T25SRWN,PKTSSR ; REWIND NOT ACCEPTED 
051432 104456 TRAP CSERHRD 
051434 001032 . WORD 538 
051436 055035’ . WORD T2SRWN 
051440 011746' . WORD PKTSSR 
4736 051442 30$: CKLOOP ;LOOP IF SELECTED 
051442 104406 TRAP CSCLP1 
4737 051444 013701 054056’ MOV T25CN2,R1 sNUMBER OF RECORDS ON TAPE 
4738 051450 012702 177776 MOV #65534. ,R2 sMAX IT CAN SPACE OVER 
4739 051454 020201 CMP R2,R1 ;WHICH VALUE CAN WE USE 
4740 051456 003002 BGT 46$ ;8R, IF @ WRITTEN > 64K 
4741 051460 010103 MOV R1,R3 3@ WRITTEN CAN BE USED 
4742 051462 000401 BR 47$ sMOVE ON 
4743 051464 010203 463: MOV R2,R3 ;USE MAX NUMBER 
4744 051466 162703 000001 47$: SUB #1,R3 ;D00N'T GO ALL THE WAY YE 
eet 051472 010337 054032’ MOV R3,T25RB ;NUMBER OF RECORDS TO SPACE OVER 
4747 3 SESAASHAAREACABRAEASLASEAEASLASCAASALAAEEEEASAEEEAEASEEAASEASZASAARAAELAASESE 
4748 


4749 ;SPACE FORWARD,ACK,CVC=1 COMMAND 


L1i4 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 0O1-FEB-84 17:54 SEQ 180 
TEST 5S: SPACE RECORDS 

4750 ; 

475l1 PeVTTrrrrrritirivitititiritiriiritrititi tit rirititititritttttittittt 

4752 

4753 051476 012737 140010 054030’ MOV #140010, T25PK3 sSPACE FORWARD,ACK,CVC=1 COMMAND 

rite sssSt0 012704 054030’ a MOV @T2S5PK3,R4 3;SET UP R4& WITH PACKET ADDRESS 

1 : 

4756 051510 013737 054056' 054062' MOV T2S5CN2, T2SOLY sNUMBER OF RECORDS USED AS DELAY COUNTER 

4757 051516 010465 000000 MOV R4,TSOBCRS) 3ISSUE COMMAND 

4758 051522 004737 016150’ 678: JSR PC ,WAITF sWAIT FOR SSR TO SET 

4759 051526 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

4760 051532 012702 000200 MOV @SsSR, ;SET UP EXPECTED 

4761 051536 020102 CMP R1,R2 ;ARE THEY EQUAL 

4762 051540 001425 BEG 75$ ;BR, IF OK 

4763 051542 DELAY 250 ;DELAY .25 SECONDS 
051542 012727 000250 MOV #250,(PC)-+ 
051546 000000 . WORD 0 
051550 013727 002116’ MOV LSDLY,CPC)+ 
051554 000000 . WORD 0 
051556 005367 177772 DEC -6(PC) 
051562 001375 BNE .-4 
051564 005367 177756 DEC -22CPC) 
051570 001367 5 BNE -20 

4764 051572 005337 054062’ DEC T2S50LY ;BUMP DOWN COUNTER 

4765 051576 001351 BNE 67$ ;8R, IF NOT AT END OF DELAY 

4766 051600 005237 002212' FATFLG ;BUMP COUNT 

4770 051604 ERRHRD ERRNO, TOSWDE,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
051604 104456 TRAP CSERHRD 
051606 001033 WORD 539 
051610 054145' .- WORD T25WDE 
051612 011746' .WORD PKTSSR 

4771 051614 75$: CKLOOP ;LOOP IF SELECTED 
051614 104406 TRAP CSCLP1 

4772 051616 012703 010000 MOV 4096. .R3 sRECORD SIZE 

ri hh 051622 013737 003114' 054032’ MOV FREE, T25RB ;STARTING READ BUFFER ADDRESS 

hey 3 SASEKHKASERASASAAASASABRHAAASSEAAASEEAAAEAAAAAAAASEAEAASKESAEASZASAREAEASSE 

4776 ; 

rtd ;READ DATA,ACK COMMAND 

pha | MbSbeenesnesascnscassasascesncecessscccosecoasceseseasensscencnces 

4780 

4781 051630 012737 100001 054030' MOV #100001, T25PK3 sREAD DATA,ACK COMMAND 

4782 051636 012704 054030' 165$: MOV @T25PK3,R4 3;SET UP R4& WITH PACKET ADDRESS 

4783 051642 010337 054036’ MOV R3,T25SZ ;SET UP RECORD SIZE IN PACKET 

4784 051646 010465 000000 MOV - R4,TSOBCRS) ; ISSUE COMMAND 

4785 051652 004737 016150’ JSR PC, ,WAITF ;WAIT FOR SSR TO SET 

4786 051656 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

4787 051662 012702 000200 MOV #SSR,R2 ;SET UP EXPECTED 

4788 051666 020102 CMP R1,R2 ;ARE THEY EQUAL 

4789 051670 001411 BEQ 170$ ;BR, IF OK 

4790 051672 032701 000004 BIT #BIT2,R1 ;CHECK FOR TAPE STATUS ALERT 

4791 051676 001006 BNE 170 3IF SET ALL IS WELL 

4792 051700 005237 002212’ INC FATFLG ;BUMP COUNT 

4796 051704 ERRHRD ERRNO,RDERR,PKTSSR :;TSSR INCORRECT AFTER READ DATA 
051704 104456 TRAP CSERHRD 
051706 001034 . WORD 540 
051710 005176' .WORD RDERR 


Test see Ree Re EsRBs* ® 


051712 
051714 


051772 


051772 
051772 


052016 


052024 
052030 
052032 
052032 
052036 
052040 


011746’ 


015374' 
104406 


104403 
023727 
103402 
004737 


004737 
013737 


004737 
103427 


012727 
000000 
013727 


131172 
054056' 
000001 


002212' 


002212' 
017104’ 


055246' 
054060’ 
055340' 
055402' 
054060' 


015674' 


000250 
002116' 


M14 


MACRO M1113 01-FEB-84 17:54 SEQ 1861 
-WORD PKTSSR 
170$: CKLOOP sLOOP IF SELECTED 

TRAP CsCLP1 

MOV OFREE ,R1 sGET FIRST WORD FROM BUFFER 

MOV T25CN2 ,R2 sSET UP EXPECTED 

SUB #1,R2 +SHOULD BE LAST RECORD 

CMP R1,R2 sWAS RECORD NUMBERED R3 

BEQ 200$ ;BR, IF CORRECT RECORD 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T2SWNG,EXPREC sSHOULD HAVE BEEN RECORD NUMBER 1 
TRAP CSERHRD 
«WORD 541 


000017 


054056 ' 


054062’ 


-WORD T2SWNG 

«WORD EXPREC 
2008: CKLOOP 

TRAP CsCLP1 


ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10076: 
TRAP CsESuUB 
CMP FATFLG, #15. :IS ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP :TRY TO DROP THE UNIT 
999%: 
3° 
Q 
;TEST 5S, SUBTEST 6 
3 
;VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A 
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE 
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE 
;WHICH EVER IS LESS. 
‘ 
o 
3 
’ BGNSUB 7>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
75.6: 
TRAP C$BSUB 
JSR PC, T2SREST ;SET COMMAND PACKET 
MOV T25CNT , T2SCN2 ;SET UP RECORD COUNTER 
JSR PC, T25SRT2) ;SET UP OTHER COMMAND PACKET 
JSR PC, T2SRT3 ;SET UP OTHER COMMAND PACKET 
MOV T25CNT, T2SDLY ;SET UP REWIND DELAY COUNTER 


Pee verrr iret irr rit ieti tit itirriiiiitititittittiiitriririiriiiiir itty) 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


Hy 
{PEAR AERESEAEAEEAEAEERESES GRAAAEAEAEAAAEAASASARESEAASEAREREAESASEES 


10$; JSR PC,SOF INIT 3:00 INITIALIZE ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
DELAY 250 sWAIT ABOUT .25 SECONDS 
MOV #250, (PC)+ 
WORD 


° 0) 
MOV LSDLY,(PC)+ 


TSV7 - HARDWARE TESTS 1-8 

TEST S: SPACE RECORDS 

177772 
177756 
054062’ 


000002 
002212' 


052106 
052110 


052116 


011734' 
013737 


012704 


002172’ 
053700' 


052122 
052126 
052130 
052134 
052136 
052136 
052140 
052142 
052144 
052146 
052146 


004737 
103407 
005237 
010001 


104456 
001037 
005046 ' 
011734’ 


104406 


010562’ 
002212’ 


004737 010714' 
052154 103407 

010001 
005237 


104456 
001040 
055035’ 
011746' 


104406 


002212’ 


052174 


053720' 


N14 


MACRO M1113 01-FEB-84 17:54 
.WORD 0 
DEC -6(PC) 
_ BNE a 
DEC ~22(PC) 
BNE .-20 
DEC T25DLY ;DEC COUNTER 
BNE 10$ ;BR, IF MORE LOOPS REQUIRED 
MOV TSSR(RS),R1 ;CONTENTS OF TSSR REGISTER 
INC FATFLG ;BUMP COUNT 
ERROF ERRNO,SFIERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
m TRAP —- CSEROF 
.WORD 542 
-WORD SFIERR 
-WORD SFIMSG 
20$: MOV UNITN, T250SW ;SET UP UNIT NUMBER 
MOV OT2SPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
{APRA AREAAARERABRAABRARARAAAEAERABERAARASAERARAABREAAARERRADZAAEAALSED 
3 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; 
FARRAR AARAERARAREAARAAREREAAAAAARERAEEAAEASEAAARAAAARERAREAEEAEBAEEEE 
JSR PC ,WRTCHR ;ISSUE WRITE CHARACTERISTICS 
BCS 25$ ;BR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,RL ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC FAILED 
TRAP § CSERHRD 
.WORD 543 
“WORD WRTMSG 
“WORD  SFIMSG 
25$:  CKLOOP ;LOOP IF SELECTED 
TRAP = CSCLP1 
{ PSAAAREARARARASALAEAAREEASAEARAAAAEAREEAEAARASAEARAREEAAEARABABRALABABRERSE 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
‘ 
{RAK EAASAREEAEEAEAEASABEAEEAEAAEAEEARABRAEEBARAEEEAAAEEAREAREAAADRSES 
JSR PC, REWIND :CALL TAPE REWIND COMMAND 
BCS 30$ ;8R, IF NO PROBLEM 
MOV RO,R1 :SAVE TSSR 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T25RWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP —- C$ERHRD 
.WORD 544 
“WORD T2SRWN 
WORD PKTSSR 
30$:  CKLOOP ;LOOP IF SELECTED 
TRAP = C$CLP 1 


{FFARR AREAEAAEAEEREEAARERAREEAEAEEEREAAEAEARREASEAREALEARERARRADA 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


SEQ 


182 


4930 
4931 
4932 
4936 


- HARDWARE TE 
S: SPACE 


052372 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001041 


054225’ 
015374° 


010337 


012737 


STS 1-8 
RECORDS 


053730: 
000002 


002212' 


054056’ 
177776 


054032’ 


140010 
054030" 


000250 
002116' 
177772 
177756 
054062’ 
002212' 


Bis 


MACRO M1113 O1-FEB-84 17:54 


054030' 


* 054062° 


SEQ 183 


‘ 
FHSASSHHHHEHAHEHHESEEHOEASEESEHEREAEOREHEHEAESEEHEEHEEHEEEHEOHEEREOEEES 


MOV T25BFR-6,R1 
MOV R1,R2] 
BIS OBIT1,R2 
CMP R1,R2 
BEQ 408 
INC FATFLG 
ERRHRD ERRNO, T25B80T ,EXPREC 
403: CKLOOP 
MOV T25CN2,R1 
MOV 065534, ,R2 
CMP R2,R1 
BGT 468 
MOV R1,R3 
BR 47% 
463: MOV R2,R3 
47%: 
MOV R3,T25SRB 


FESSSSNSSHESSSHSSHSSHSEEHSESHESESSEHHSEHEHEHHSESHESEEHHEESHEHAEEEHHEEEEEEEEE 


i 
sSPACE FORWARD,ACK,CVC*1 COMMAND 
; 


FSSSHSSHANSSHSHSSSSSSSSSSSESHSHHESHEHEASESESESESAHEHESASEHEHEHEHEEEEEEES 


MOV #140010, T25PK3 

MOV @T25PK3,R4 

MOV R4,TSDB(RS) 

MOV T25CN2, T250LY 
48%: JSR PC ,WAITF 

MOV TSSRCRS),R1I 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 50% 

DELAY 250 

DEC T250L ¥ 

BE 483 

INC FATFLG 


ERRHRD ERRNO, TOSWDOE ,EXPREC 


sPICK UP xSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

sD00ES EXP «= REC'D 

36R, IF EQUAL (0K) 

sBUMP COUNT 

+ TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 545 
«WORD T2S580T 
-WORD EXPREC 

sLOOP IF SELECTED 
TRAP CsSCLP1 

sNUMBER OF RECORDS ON TAPE 

sMAX IT CAN SPACE OVER 

sWHICH VALUE CAN WE USE 

3B8R, IF @ WRITTEN >» 64K 

30 WRITTEN CAN BE USED 

sMOVE ON 

sUSE MAX NUMBER 

sNUMBER OF RECORDS TO SPACE OVER 

;SPACE FORWARD,ACK,CVC=1 COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

:SET UP DELAY COUNTER 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

3SET UP EXPECTED 

sARE THEY EQUAL 

;B8R, IF OK 

sWAIT .25 SECONDS 
MOV @250,(PC)- 
-WwORD O 
MOV L$O.y,(PC)- 
.WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

30EC THE DELAY COUNTER 

368R, IF COUNTER HASN'T EXPIRED 

;BUMP COUNT 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 546 
. WORD TO5WOE 


test EP ACE REE ORBS! ° 


4937 


4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 


052432 
052440 


052564 


015374' 


162703 
010337 


012737 
012704 
010465 
013737 
004737 
016501 
012702 
020102 
001425 


015374° 
104406 


012703 
013737 


012737 


054056’ 
177776 


000001 
054032’ 


000250 
002116’ 
177772 
177756 
054062’ 
002212" 


010000 
003114’ 


100001 


ead 


MACRO M1113 0O1-FEB-84 17:54 SEQ 184 
-WORD EXPR 
50$: CKLOOP nie 
TRAP CSCLPi 
MOV T25CN2,R1 sNUMBER LS RECORDS ON TAPE 
MOV 065534, ,R2 sMAX IT CAN SPACE OVER 
CMP R2,R1 sWHICH VALUE CAN WE USE 
BGT 553 s6R, IF @ WRITTEN > 64K 
MOV R1,R3 34 WRITTEN CAN BE USED 
BR 60% sMOVE ON 
558: MOV R2,R3 sUSE MAX NUMBER 


054030’ 


054062’ 


054032’ 


054030' 


60%: SUB #1,R3 sD0N'T GO ALL THE WAY YET 
MOV R3,T25RB sNUMBER OF RECORDS TO SPACE OVER 


POPPI rrrrriirrrrriiriiviirriiiririiriiriiiiiiiiiiititiTiTyTs 
° 
sSPACE REVERSE ,ACK,CVC*1 COMMAND 


; 
F PFSOOHSHHHSAHSSESESEEHESEEASEEEEHEES* SHOSAEESESESESHESHEHEEHEEEEEOESS 


MOV #140410, T25PK3 sSPACE REVERSE ,ACK,CVC=1 COMMAND 

MOV @T25PK3,R4 sSET UP R4& WITH PACKET ADDRESS 

MOV R4, TSOBCRS ) s ISSUE COMMANDO 

MOV T25CN2, T250L 7 sSET UP COUNTER 

708: JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSRC(RS),R1 sGET TSSR CONTENTS 

MOV @SSR ,R2 sSET UP EXPECTED 

CMP R1,R2 sARF THEY EQUAL 

BEQ 75$ sBR, IF OK 

DELAY 250 sWAIT ABOUT .25 SECONDS 
MOV @250,(PC)-+ 
-WORD O 
MOV LSOLY.(PC)- 
-WORD 0O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE --20 

DEC T250L sBUMP COUNTER DOWN 

BNE 70$ sBR, IF COUNTER HASN'T EXPIRED 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, TOSWDE ,E XPREC sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 547 
- WORD T2SWOE 
-WORD EXPREC 

758; CKLOOP sLOOP IF SELECTEO 

TRAP Csc.Pi 

MOV ©4096. ,R3 sRECOROD SIZE 

MOV FREE, T25RB sSTARTING READ BUFFER ADDRESS 


FFSSSSHSHESSSHHESHESHESESESHOSHEHSEEHEHEHAEHEHEHEESHHESESHESHEESEESEEEEE 
; 

sREAD DATA,ACK COMMAND 

t] 
FSSSSSEOHHSESHSEEESSESHHSESEHSEHEHHESESHEEHESEEHEHEHESESEEEHHEHEEHEEEEDEDSD 


MOV #100001, T25PK2 sREAD DATA,ACK COMMAND 


FeRy st*SRREE Ad EASS* 


052732 


052732 
052732 
052732 
052734 
052740 
052744 


012704 054030’ 
0127 77777 
004737 017324' 
010337 054036' 
010465 000000 
004737 016150’ 
016501 000002 
012702 000200 
020102 
001411 
032701 000004 
001006 
005237 002212' 
104456 
001044 
005176' 
015374 
104406 
017701 130226 
012702 000001 
020102 
001406 
005237 002212’ 
104456 
001045 
054610' 
015374' 
104406 
104403 ty 
023727 002212’ 
103402 
004737 017104: 
104402 


004737 055246' 
004737 055340’ 
004737 055402’ 


DiS 


MACRO M1113 01-FEB-84 17:54 


000017 


1658: MOV OT25PK3,R4 
MOV one tee 
JSR PC ,FILLMEM 
MOV R3,T2552Z 
MOV R4, TSDBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR,R2 
CMP R1,R2 
BEQ 1708 
BIT oBIT2,Ri 
BNE 170$ 
INC FATFLG 
ERRHRD ERRNO,RDERR,EXPREC 
170%: CKLOOP 
MOV @FREE ,R1 
MOV #1,Re2 
CMP R1,R2 
BEQ 2008 
INC FATFLG 
ERRHRD ERRNO, TOSWNH,EXPREC 
2008: CKLOOP 
ENOSUS 
CMP FATFLG,@15. 
BLO 9993 
JSR PC ,CKDROP 
999%: 


3¢ 
3 
sTEST 5, SUBTEST 7 


sSET UP UP R4 es trocconecT Re S ae 
PUL HEMORY WET RECORD SIGE OE 
CET” UP RECORD SIZE IN PACKET 

s ISSUE COMMANO 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

s6R, IF OK 

sCHECK FOR TAPE STATUS ALERT 
sBR, IF BIT SET 


sBUMP COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 548 
-WORD ROERR 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sGET FIRST WORD FROM BUFFER 
sSET UP EXPECTED 
sWAS RECORD NUMBERED R3 
BR, IF CORRECT RECORD 
UMP COUNT 


38 

;SHOULD HAVE BEEN RECORD NUMBER 1 
TRAP CsSERWRD 
-WORD 549 
. WORD T2SWNH 
-WORD EXPREC 


TRAP CSCLPL 
3>>>>>>>>>>>> END SUBTEST >>>>»>>>>>>>> 


L10077: 
TRAP CsESUB 
3IS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
:TRY TG OROP THE UNIT 


° 

sVERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE 
sTAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


BGNSUB 

JSR PC, T25SREST 
JSR PC, T2SRT2 
JSR PC, T25SRT3 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
Waee3 


TRAP CsBSUB 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


SEQ 185 


Tsv? 


TEST 5S: SPACE RECORDS 


052750 


052772 
052774 


053002 


053032 


011734' 
013737 


012704 


004737 
103407 
005237 
010001 


104456 
001047 
005046’ 
011734’ 


104406 


005237 


104456 
001050 
055035’ 
011746' 


104406 


- HARDWARE TESTS 1-8 


015674' 
002212' 


002172' 
053700’ 


010562’ 
002212' 


010714’ 


002212' 


E15 
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053720' 


FPARAHHAHARASEEAARAEEAAAEHEAEEEAESHAREEAEEEEHEEEEAAEEESESESEEEEEEEES 


3 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; 
FOESHARAAAASAEASHARESEEAEEEEAEERESEEEAEEEAEAEEAAEEEEAAAEEAAEEEEEEEEEE 


JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 


BCS 20% s8R IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDOF ERRNO, SF IERR,SFIMSG sFAT.L ERROR TSSR WAS cag A 

AP 
. WORD 
. WORD 
. WORD 
208: MOV UNITN, T250SW ;SET UP UNIT NUMBER 


MOV @T2SPACKET ,R4 
Poy YY IT III III iii it iriiitiriiririiriiiiriiiiiiiiititiiiiitrirr ri 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 


; 
J SAAHHAASSSESEEALESLAAESADAEAHAHADSEEHROSOEHRESHAASASESESASEREEEEEEEEEEESED 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 25$ ;BR, IF COMMAND ISSUED OK 

INC FATFLG ; BUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG, SF IMSG ;WRITE CHARACTERISTISC iy 
. WORD 
. WORD 
. WORD 

25%; CKLOOP ;LOOP IF SELECTED 

TRAP 


FPSAAAHEASSHSOSSHESESHAAEHEASEEEOHESAASESAHAASHESEEAEASESEEEESHAEHEREDEE 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FFSSHAHSSHSSSASSESEESSESHESSESHAEHAHESEELESCEHASSEEHESESASASEESOESLSESEASEEESEHEEESEE 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

BCS 30$ ;BR, IF NO PROBLEM 

MOV RO,R1 ;SAVE TSSR 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T2SRWN,PKTSSR ; REWIND NOT ACCEPTED ae 
. WORD 
. WORD 
. WORD 

303: CKLOOP ;LOOP IF SELECTED 

TRAP 


FAHSHEHESAEHEEEEHESESESESEEEHEES! SEHESHEHHOEHEEESESEEESEREDEHEHEOAHAEEEEDE 


CSEROF 
550 


SFIERR 
SF IMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


CSERHRD 
S51 

WRTMSG 
SF IMSG 


CsCLPl 


CSERHRD 
552 
T2SRWN 
PKTSSR 


CsCLPl 


SEQ 186 


TSV7 - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


013701 053730' 


000002 


002212' 


015374' 


104406 
012737 


053114 


053116 000001 054032’ 


053124 
053132 
053136 
053136 
053142 
053146 
053152 
053156 
053160 
053162 
053166 
053166 
053170 
053172 
053174 
053176 
053176 


012737 
012704 


100410 054030’ 
054030’ 


000000 
016150’ 
000002 
100206 


002212’ 


011746’ 
104406 


053200 
053204 
053206 
053212 
053214 
053216 
053222 


053730’ 
002000 


013701 
2 


005237 002212’ 


ria 


MACRO M1113 0O1-FEB-84 17:54 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
FERRER AHARASEHESEAEAEEARERAEAEEEEREEAAEAEEEEESEASESREAEREEEAEDREEEEDE 


MOV T25BFR+6,R1 
MOV R1,R2 

BIS oBITi,R2 
CMP R1,R2 

BEQ 40% 


INC FATFLG 
ERRHRD ERRNO, T2SBOT ,EXPREC 


40$: CKLOOP 


MOV #1, T25RB 


sPICK UP XSTO 

sSET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

3BR, IF EQUAL (OK) 


sBUMP COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
. WORD 


;LOOP IF SELECTED aa 
s;NUMBER OF RECORDS TO SPACE OVER 


J PSAHAAAAEAAAASHSSESSOAEAAESEASESEEASEAESESESESEEHRAAEEEESEEEKESEEASESE 


; 
;SPACE REVERSE ,ACK COMMAND 
; 


FPPCAEASESHAASESEHEHESEEHASESASASASSEESHASESSEESEEAEHHEEDESEAEESESESEEES 


MOV #100410, T2SPK3 

MOV @T25PK3,R4 
65$: 

MOV R4,TSOBC(RS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV SSR!ISC!BITLIBIT2,Re 

CMP R1,R2 

BEQ 75$ 

INC FATFLG 

ERRHRD ERRNO, T2SWDE ,.PKTSSR 
753%: CKLOOP 


sSPACE REVERSE ,ACK COMMAND 
;SET UP R4& WITH PACKET ADDRESS 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


;BR, IF OK 
sBUMP COUNT 
:TSSR INCORRECT AFTER READ DATA 
. TRAP 
. WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


F FPEAEHHESEAEASASEEEEAESSEEAASSSESEASCHEESHSSHASEASSSSHESSEAESEASSESEEE 


; 
s;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
3 


FASAHAHHSHASEHEESEESEEHEAESOHHEEESEESESESEESESHESESESESEESASEEESHESESARESES 


MOV T25BFR+6,R1 

MOV R1,R2 

BIS oBIT10,R2 

CMP R1,R2 

BEQ 170$ 

INC FATFLG 

ERRHRD ERRNO, T2SNEF ,EXPREC 


3GET XSTO STATUS WORD 
3SET UP EXPECTED 

;SET THE NEF BIT 

sARE THEY EQUAL 

BR, IF EQUAL (GOOD) 
s;BUMP COUNT 

sNEF SHOULD BE SET 


CSERHRD 
553 
T2580T 
EXPREC 


CS$CLP1 


CSERHRD 
554 


T2SWOE 
PKTSSR 


CsCLP1 


SEQ 187 


TSV? - HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


053222 


053252 


053252 
053252 
053252 
053254 
053260 
053264 


053270 


053314 
053322 


104456 
001053 
054673' 
015374' 


104406 
104403 
023727 


103402 
004737 


011734' 
013737 


012704 


002212’ 
017104' 


055246' 
055340' 
055402' 


015674’ 
002212’ 


002172’ 
053700' 


G15 


SEQ 188 


MACRO M1113 0O1-FEB-84 17:54 
TRAP CSERHRD 
. WORD 555 
» WORD T2SNEF 
. WORD EXPREC 
170$: CKLOOP 
TRAP CSCLP1 
ENDSUB 
L10100: 
TRAP CsESUB 
000017 CMP FATFLG,4@15. :IS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
999%: 
3¢ 
Hy 
;TEST S, SUBTEST 8 
Hy 
;VERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT 
sCUASES THE TAPE To RUN INTO BOT CWITH THE TAPE NOT 
:INITIALLY AT BOT) CAUSES A TAPE STATUS ALERT 
3; TERMINATION AND SETS THE REVERSE INTO BOT (RIB) 
sSTATUS BIT 
a 
: 
; 
- BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
75.8: 
TRAP Cs$BSUB 
JSR PC, T2SREST 3SET COMMAND PACKET 
JSR PC,T25RT2) ;SET UP OTHER COMMAND PACKET 
JSR PC, T25RTS ;SET UP OTHER COMMAND PACKET 
eeTTTT Titi rT ritiitittitritttttiiititititttTiiitttttttittittttttttyy 
a 
;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; Gnddnebaesenabeerbeaeenadibniaamensednebieaebabiaeenanimeebas 
JSR PC,SOFINIT ;00 INITIALIZE ON CONTROLLER 
BcS 203 ;68R IF INIT WAS OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 556 
wORD SFIERR 
. WORD SF IMSG 
053720' 20%: MOV UNITN, T250SW ;SET UP UNIT NUMBER 
MOV @T2SPACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


FFSSHEAHAAAHASESHEASASEHASASESSEEASAESEASDESSOEHSESEHSEHASEASEHKEHEKSESHHOEKEEEEORDE 


3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 
a 


TSV7 -_HARDWARE TESTS 1-8 
TEST 5S: SPACE RECORDS 


053326 
053332 
053334 
053340 
053342 
053342 
053344 
053346 
053350 
053352 
053352 


004737 010562’ 


103407 
005237 002212' 


010001 
104456 
001055 
005046 ' 
011734’ 


104406 


004737 010714’ 
103407 
010001 
005237 002212’ 
104456 
001056 
055035' 
011746’ 


104406 


013701 053730' 
052702 000002 


005237 002212' 


015374’ 


104406 
012737 000001 


His 
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FPAHAAHSAAEAEHAAAEEARAEASEHREREAEEEEEESESLEEHERACEAEEAEASEEEARESEEEEDE 


JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 25$ ;BR, IF COMMAND ISSUED OK 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG ;sWRITE CHARACTERISTISC oy 
TRA 
. WORD 
WORD 
. WORD 
25$: CKLOOP ;LOOP IF SELECTED 
TRAP 
{PARRA EARESEEEEEAAAEREAEREAEERAREEEEEAEREEAEDEADAEEESEEREREEREEES 
3 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
WUUUTTTTTTTTTTTTITITTTITTTTTTTTTTTTTTETETITTTTTTTTTT TTT T TTT TTT TTT 
JSR PC,REWIND ;CALL TAPE REWIND COMMAND 
6cS 30$ 3;68R, IF NO PROBLEM 
MOV RO,R1 ;SAVE TSSR 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2SRWN,PKTSSR ;REWIND NOT ACCEPTED paw 
. WORD 
. WORD 
. WORD 
30$: CKLOOP ;LOOP IF SELECTED 
TRAP 
ORRARAAAAAASERAAADEREAEREEEAODAEESEREEEEEREREREDEEEEEDEDEOEEDREDEDE 
3 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
WUUUTTTTTTTTITITITTTTTITTTTTTTICUTTTITETTTTLTTTTTTETTT TTT TTT TTT TT y 
MOV TOSBFR+6,R1 ;PICK UP xSTO 
MOV R1i,R2 ;SET UP EXPECTED 
BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 ;DOES EXP = REC'D 
BEQ 40$ ;BR, IF EQUAL (OK) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T2SBOT,EXPREC ;TAPE NOT AT BOT AFTER — 
. WORD 
. WORD 
. WORD 
40$: CKLOOP 
TRAP 
MOV #1, T25RB sNUMBER OF RECORDS [TO SPACE OVER 


054032’ 


FPSHESAHASAREEESASAEASSEESESEEESDEAEHSESESHEASEASEELERSEESEHAEEAECEEESEDODDE 


; 
;SPACE FORWARD, IE,ACK,CvC=1 COMMAND 
; 


CSERHRD 
$57 

WRTMSG 
SF IMSG 


CSCLPlL 


CSERHRD 
558 
T2SRWN 
PKTSSR 


CsCLP1 


CSERHRD 
559 
T2S580T 
ExPREC 


CsCLPl 


SEQ 189 


TSV7 - HARDWARE TESTS 1-8 
TEST 5: SPACE RECORDS 


053510 
053512 
053514 
053516 
053516 
053520 


053526 
053534 


012737 


015374' 


104406 
012737 


012737 


015374’ 


104406 
013701 
010102 
052702 
020102 
001406 
005237 


104456 
001062 
054673' 
015374' 


104406 


140210 
054030' 
000000 


016150' 
000002 
000200 


002212' 


000020 


100610 
054030’ 
000000 
016150’ 
000002 
100204 


002212' 


053736’ 
000001 


002212' 


Tis 
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054030’ 


054032’ 


054030’ 


FPAAAAAHARAAASHARARARARESEEAAEERADEEAEESEREEAEEERAEEEAASCESEEEEOEDEOED 


75$: 


MOV #140210, T25PK3 
MOV @T25PK3,R4 

MOV R4,TSOBCRS) 
JSR PC, ,WAITF 

MOV TSSRCRS),R1 
MOV @SSR, 

CMP R1,R2 

BEQ 75$ 


iC LG 
ERRHRD ERRNO, T25WOE ,EXPREC 


CKLOOP 


MOV #20, T25RB 


sSPACE FORWARD, IE,ACK,CVC=1 COMMAND 
sSET UP R4& WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


;8R, IF OK 

sBUMP COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 560 
-WORD T2SWOE 
«WORD EXPREC 


;LOOP IF SELECTED 


TRAP CsCLP1 
sNUMBER OF RECORDS TO SPACE OVER 


FPRHAASAASESAREAAASHASAAAESHASEEAEAEEEERASESAEEEESEEAASEEAEEEAAAEEAEEE 


° 
s;SPACE REVERSE ,IE,ACK COMMAND 


3 
J SSASASHAHHASEAEASESASEHAESAEEEEEAEEAADASHEHESESASLALASESALESESESEEESD 


175$: 


180$: 


MOV #100610, T25PK3 

MOV @T25PK3,R4 

MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR!IBIT2!:SC,Re2 
CMP 1,R2 

BEQ 175$ 

INC FATFLG 

ERRHRD ERRNO, T2SWDE ,EXPREC 
CKLOOP 

MOV T25BFR+14,R1 

MOV R1,Re2 

BIS #BITO,R2 

CMP R1,R2 

BEQ 180$ 

INC FATFLG 

ERRHRD ERRNO, T2SNEF ,EXPREC 
CKLOOP 

ENDSUB 


;SPACE REVERSE,IE,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF OK 

;BUMP COUNT 

3;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHWRD 
-WORD 561 
WORD T25WOE 
.WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLP1 

;GET xST3 STATUS WORD 

;SET UP EXPECTED 

;SET THE RIB BIT 

;ARE THEY EQUAL 

;B8R, IF EQUAL (GOOD) 

;BUMP COUNT 

sNEF SHOULD BE SET 
TRAP CSERHRD 
.WORD S62 
.~ WORD T25NEF 
. WORD EXPREC 
TRAP CsCLPl 


3 >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10101: * 


SEQ 190 


J15 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 0O1-FEB-84 17:54 SEQ 191 
TEST 5: SPACE RECORDS 

053636 104403 TRAP CSESUB 
S287 053640 023727 002212' 0v0017 CMP FATFLG, #15. 3IS ERROR COUNT AT 25 
5288 053646 103402 BLO 999% ;BR, IF LESS THAN 25 
5289 053650 004737 017104' JSR PC ,CKDROP ;TRY TO DROP THE UNIT 
5290 053654 999%: 
5291 3 
5292 ; 
5293 ; 
S294 053654 004737 016360’ JSR PC, TSTLOOP ;00 WE NEED TO ITERATE TEST 
5295 053660 103002 BCC 193$ ;BR, IF NO LOOP REQUIRED 
5296 053662 000137 046536' JMP T25L00P sEXECUTE AGAIN 
5297 053666 193$; 
5298 053666 EXIT TST ;ALL DONE THIS TEST 

053666 104432 TRAP CSExIT 

053670 001542 -WORD 1L10071-. 
5299 
5300 3+ 
g+4] ;LOCAL STORAGE FOR THIS TEST 

, — 
5304 053672 .BLKB 10-<, -TSV2E7> 
5306 053700 T25PACKET: sCOMMAND PACKET FOR TEST 
5307 053700 100004 . WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
5308 053702 053710’ . WORD T25DATA sADDRESS OF CHARACTERISTICS BLOCK 
5309 053704 000000 -WORDB O 
5310 053706 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 
5311 053710 T25DATA: sCHARACTERISTICS DATA BLOCK 
$312 053710 053722’ . WORD T25BFR sADDRESS OF MESSAGE BUFFER 
5313 053712 000000 -WORDB O 
5314 053714 000012 . WORD 10. ;LENGTH OF MESSAGE BUFFER 
5315 053716 000000 «WORD O 
5316 053720 000000 T250SW: .WORD 0 ;SELECT ORIVE ZERO 
3434 053722 T2SBFR: .BLKW 25. sMESSAGE BUFFER 
3 
ty sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
H 

5322 054004 .-BLKB 10-<, -TSV2E7> 
5324 054010 T25PKe: 
5325 054010 100006 . WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
5326 054012 054040: - WORD T258F2 sADDRESS OF SELECT BLOCK DATA 
5327 054014 000000 «WORD O 
ee 054016 000006 -WORD 6. ;SIZE OF DATA PACKET 
5331 054020 .BLKB 10-<, -TSV2E7> 
5333 054030 T25PK3 
5334 054030 100005 . WORD 100005 ;READ COMMAND, AND ACK 
5335 054032 T25RB: 
5336 054032 003114' T25WB: .WORD FREE sADDRESS OF WRITE BUFFER 
5337 054034 000000 -WORD O 
5338 054036 000000 T25SZ: .WORD 0O ;SIZE OF BUFFER CEXTENT) 
5339 ‘ EVEN 
5340 ; 
5341 ; 
5342 ; 
5343 054040 T25BF 2: 
5344 054040 010 T25B8S0: .BYTE 10 ;BSELO AREA 
5345 054041 200 T258S1: .BYTE 200 ;BSEL1 AREA 


5346 054042 000000 T25S2: .WORD 0 ;SEL 2 AREA 


Tsv7 


TEST S: SPACE RECORDS 


054044 


054046 
054050 
054052 
054054 


054056 
054060 
054062 


054064 
054145 
054225 
054272 
054361 
054435 
054520 
054610 
054673 
054753 
055035 
055104 
055157 
055230 


055246 
055246 


055330 


000000 


100005 
100405 
102005 
177777 


000000 
000000 
000000 


012701 


022702 


- HARDWARE TESTS 1-8 


053700' 
00004 
053710' 


000012 
053722' 


000024 
000000 
000030 
177777 


000000 


i 


K1i5 
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053722' 


T25S3: 
; 
; 


. WORD 


te) 


.EVEN 
3 TAPE MOTION PACKET COMMAND VALUES 


T2SRN: - .WORD 
T2SWOR: .WORD 
T2SCON: .WORD 

. WORD 
T2SCN2: .WORD 
T2SCNT: .WORD 
T2SOLY: .WORD 


100005 
100405 
102005 
177777 


9) 
.°) 
0 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


T25SSR: .ASCIZ 
T2SWOE: .ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 
TST25ID: 

EVEN 
3* 


sDATA AREA 


sREAD DATA CNEXT) 
s;READ DATA RETRY 

sWRITE CONTINOUS 

sEND OF DATA 


;COUNTER FOR RECORDS 
;COUNTER FOR RECORDS 
;COUNTER FOR RECORDS 


‘WRITE SUBSYSTEM Miscellaneous Read Status Failed’ 

‘TSSR Not Correct After POSITION (SPACE) Command’ 

‘Tape Not At BOT After REWIND Command’ 

'TSSR Not Correct After POSITION (Space Command) Reject’ 


Tape, Status Alert, But No EOT Sensed’ 


‘Space Forward Failed To Position On Correct Record’ 
‘Space Forward, From BOT, Failed To Clear BOT Indication’ 
‘Space Reverse Failed To Position On Correct Record’ 
‘Space Reverse, At BOT. Failed To Set NEF (XSTO)’ 


Into BOT, Failed To Set RIB (XxST3)' 


‘Write 

‘Space Reverse, 

‘Rewind (POSITION) Command Not Accepted’ 
‘Drive 7 Select Failed To Set “OFL” In TSSR’' 
‘TSSR Not Correct After READ DATA Command’ 
-ASCIZ ‘Space Records’ 


6 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
;WRITE SUBSYSTEM MEMORY COMMAND 


T2SREST: 


64$: 


@T2SPACKET,.R1 
#100004 ,(R1)+ 
#T25DATA,(R1)+ 
CR1L)+ 
#10.,C(R1)+ 
@T2SBFR,CR1)+ 


R2 
#177777, T25BFR(R2) 
-(R2) 
#0 ,R2 


;SAVE THE REGISTERS 

sSTART OF THE PACKET 

;WRITE SUBSYSTEM MEM. ‘'TTH ACK 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;SELECT ORIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
sALL ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

;IS R2 AT ZERO YET 


SEQ 192 


TSV7 -_ HARDWARE TESTS 1-8 
SPACE RECORDS 


TEST 5: 


055334 
055336 


055340 
055340 
055344 
055350 


001371 
000207 


012701 


012737 


005037 


054010' 


006256 ' 
017176’ 
074607’ 
016412’ 
000005 
021116’ 
072056' 


Lis 
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002170' 


002206' 


BNE 64$ sKEEP GOING UNTIL DONE 
RTS PC sRETURN 
T25SRT2: 

SAVREG sSAVE THF REGISTERS 

MOV @T25PK2,R1 sSTART ( THE PACKET 

MOV #100006,(R1)+ sWRITE SUsSYSTEM MEM. WITH ACK, 

MOV @T2S5BF2,(R1)+ sADDRESS OF DATA BLOCK 

CLR CR1)+ sEXTENDED ADDRESS 

on mit sSIZE OF DATA BLOCK IN BYTES 
+ 

MOV #TeSBF2,R1 sPOINT TO DATA SEL AREA 

CLR (R1)+ 

CLR (R1) 

RTS PC ;RETURN 

T25RTS: 

SAVREG ;SAVE THE REGISTERS 

MOV @T25PK3,R1 sSTART OF THE PACKET 

MOV #0,(R1)+ ;WRITE SUBSYSTEM MEM. WITH ACK, 

MOV #0,(R1)+ sADODRESS OF DATA BLOCK 

CLR C(R1)+ sEXTENDED ADDRESS 

MOV #0,(R1)+ sSIZE OF DATA BLOCK IN BYTES 

RTS PC ;RETURN 

ENDTST 


L10071: 
TRAP CSsETST 


-SBTTL TEST 6: REREADS 
3¢ 


; 

sTHIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
s;COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
sDATA BUFFER BOUNORIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
sSPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (OPP) 
;CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON 
sEXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
sLENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 
3AND DATA BUFFERS IN NONEXISTENT MEMORY. 

; 


; THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 
; 


BGNTST . 
6:: 
MOV #EPRT2,EPRTSW sSECONDARY ERROR MESSAGE 
JSR PC ,KTOFF ;D00N’' T NEED KT11 
MOV #TST26ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
MOV #5 ,LOOPCNT sPERFORM 5S ITERATIONS 
JSR PC ,MEMCK ;CHECK FOR MEMORY 
CLR T26CNT ;CLEAR TAPE RECORD COUNTER 


3;¢ 


;TEST 6, SUBTEST 1 


SEQ 193 


TSv7 - 


055474 


055474 
055474 
055474 
055476 
055502 
055506 
055512 


055520 
055524 
055526 
055526 
055532 
055534 


055610 


Test “en ReREADS © >> 2-8 


004737 074620' 
004737 074712‘ 
004737 074754' 
012737 176750 


004737 015674' 
103426 


012727 000250 
000000 

013727 002116’ 
000000 

005367 177772 
005367 177756 
005337 072064’ 
005237 002212’ 


013737 002172’ 
012704 071700’ 


M15 


MACRO M1113 0O1-FEB-84 17:54 SEQ 194 
4 
H 
;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
;AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRST 
sREWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
sRECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
;IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 
;TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
;PREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA, 
;ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
;PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
sRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 
a 
g 
g= 
T26LOOP: 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.1: 
TRAP C$BSUB 
JSR PC, T26REST ;SET COMMAND PACKET 
JSR PC,T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS 3;SET UP OTHER COMMAND PACKET 
072064 ' MOV #65000. , T26DLY ;SET UP DELAY COUNTER 
FRRAAAAEREREREEREREREEREREERERARAREEABREBREAEEASEEEEEEARERASABESEREES 
a 
;ISSUVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
¢ 
FRARESAEREEAEEEASAREREEAEAEEAAEREREAEEEEAREAREREAEEEREREREREREREDRDE 
10$: JSR PC,SOFINIT 3:00 INITIALIZE ON CONTROLLER 
BCS 20$ ;6R IF INIT WAS OK 
DELAY 250 ;DELAY FOR A REWIND TO FINISH 
MOV #250,C€PC)+ 
. WORD 0 
MOV LSDLY,(PC)+ 
.WORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
DEC T26D0LY ;DEC COUNTER 
BNE 10$ ;BR, IF DELAY NOT READY 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 ;CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CsEROF 
.WORD 601 
WORD SFIERR 
- . WORD SF IMSG 
071720' MOV UNITN, T260SW ;SET UP UNIT NUMBER 
MOV #T26PACKET ,R4 ;SUBRDUTINE NEEDS PACKET ADDRESS 


FFARKAAAERAASEARESEEESESAEAEEA) BEREHKEAHAEHAASESHESADHAEAASAEEAEASABARES 


TSV/ - HARDWARE TESTS 1-8 
TEST 6: REREADS 


055700 
055704 
055706 
055712 
055714 
055716 
055722 
055722 
055724 
055726 
055730 
055732 
055732 
055734 


004737 
103407 
005237 
010001 


104456 
001132 
005046' 
011734' 


104406 


011746’ 
104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001134 
073075' 
015374’ 


104406 
012703 


010562’ 
002212' 


010714' 


000002 
000200 


002212’ 


071730' 
000002 


002212’ 


000400 


Ni5 
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° 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

; 

J ARRARREAEAEAEREEEEREAAEERAEEREREAEERAEAEEEERAEAEEAEDAABADEREDEREEE 


JSR Teeny s ISSUE WRITE CHARACTERISTICS 


BCS 2 sBR, IF COMMAND ISSUED OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC “—— 

* ,WORD 
- WORD 
. WORD 
26%: CKLOOP ;LOOP IF SELECTED 

TRAP 


J PRAERAEEAEEEREREEREEEEAREREREAEEAEREEEREREAEEEEEEEREREREREREARREEE 
; 

s; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

; 


{ FPAEAAAAAREAAEAAEEAAEAEEEEAREAEREEAAD A EAEEAREEEEEEAEREREREREREAEEE 


JSR ee sCALL TAPE REWIND COMMAND 


BCS ;BR, IF NO PROBLEM 

MOV TSSRCRS),R1 ;GET TSSR 

MOV @SSR,R2 ;SET UP EXPECTED TSSR 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED — 
. WORD 
. WORD 
. WORD 

30$: CKLOOP sLOOP IF SELECTED 

TRAP 


§ SHAE AAREEREEAREAEEAEEEAEREEAEEREEAEEEREEAREEERERAEARERREAEEREREREEARE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
; 


SSRAREAARAEERABEAEASEAEEEEAERREAAREAERAASASABREREREAEEEAERAABRAREERES 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 

CMP R1,R2 ;DO0ES EXP = REC'D 

BEQ 40$ ;BR, IF EQUAL (OK) 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER — 
. WORD 
. WORD 
. WORD 

40$: CKLOOP ;LOOP IF SELECTED 

TRAP 


MOV #256. ,R3 sRECORD SIZE 


CsCLP1 


CSERHRD 
603 
T26RWN 
PKTSSR 


CsCLP1 


T26B0T 
EXPREC 


CsCLP1 


SEQ 195 


B16 
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T 6: REREADS 
3359 055740 013737 003114' 072032: MOV FREE, T26RB sSTARTING WRITE BUFFER ADDRESS 
5561 FPSSHAAHAHASESEASADAEEHEAEHASEHEAAEEEAEESEEEHOHEREEEEEEEEEEEEEEEEEEEES 
5562 ; 
Sg s;WRITE DATA,ACK,CVC*1 COMMAND 
= : 
5565 FESARAHASHHNSAAASAEHEASEAHASHAEEAEEAEEEESESEEEEHEHREEEEEHEKEEEEEOHEERESE 
5566 
5567 055746 012737 140005 072030’ MOV 140005, T26PK3 sWRTTE DATA,ACK,CVC=1 COMMAND 
5568 055754 012704 072030’ MOV OT26PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
5569 055760 65%: 
5570 055760 010300 MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
5571 055762 004737 017324' JSR PC,FILLMEM sFILL MEMORY WITH RECORD SIZE 
5572 055766 010337 072036’ MOV R3.72652Z sSET UP RECORD SIZE IN PACKET 
5573 055772 010465 000000 MOV R4,TSOB(RS) s ISSUE COMMAND 
5574 055776 004737 016150’ JSR PC, WAITF sWAIT FOR SSR TO SET 
5575 056002 016501 000002 MOV TSSR(RS),R1 sGET TSSR CONTENTS 
5576 056006 012702 000200 MOV SSR ,R2 3;SET UP EXPECTED 
5577 056012 020102 CMP R1,R2 s;ARE THEY EQUAL 
5578 056014 001406 BEQ 75$ s8R, IF OK 
5579 056016 005237 002212' INC FATFLG ;BUMP COUNT 
5583 056022 ERRHRD ERRNO,WRTERR,EXPREC sTSSR INCORRECT AFTER WRITE DATA 
056022 104456 TRAP CSERHRD 
056024 001135 -WORD 605 
056026 005103’ .WORD WRTERR 
056030 015374’ .WORD EXPREC 
5584 056032 758: CKLOOP :;LOOP IF SELECTED 
056032 104406 TRAP CsCLP1 
5585 056034 005723 TST (R3)> s;BUMP RECORD SIZE 
5586 056036 022703 000414 CMP 0268. ,R3 sENO OF RECORD YET 
5587 056042 001346 BNE 653 sBR, IF MORE RECORDS TO WRITE 
5588 056044 803: CKLOOP ;LOOP IF SELECTED 
056044 104406 TRAP CsCLP1 
5589 056046 1208: 
5590 
oor FPSSSSSSHASSSHSSSHSHSSSEESESHOEHHEEHSSHHEEHEASCEHESHEKLESHEEESEKEEEEHSEEEKEEOEOEEE 
S2 3 
ites ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
o 
pore FS PSSSSHESSSHESSHSHHESHEHSESSESSESEHSESHEEHHHHEHHEEHHEHHEEHEEHHHEHEEHKEEEEKEOEOE 
$6 
5597 056046 004737 010714' JSR PC ,REWIND :CALL TAPE REWIND COMMAND 
5598 056052 103413 BcsS 1308 ;8R, IF NO PROBLEM 
5599 056054 016501 000002 MOV TSSR(RS),R1 sGET TSSR 
056060 012702 000200 MOV OSSR,R2 3;SET UP EXPECTED TSSR 
5601 056064 010004 MOV RO,R4 sPACKET ADORESS SET UP 
5602 056066 005237 002212’ INC FATFLG ;BUMP COUNT 
5606 056072 ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 
056072 104456 TRAP CSERHRD 
056074 001136 .wORD 606 
056076 073364' .WORD T26RWN 
056100 011746’ .WORD PKTSSR 
5607 056102 130$: | CKLOOP ;LOOP IF SELECTED 
a 056102 104406 TRAP CSCLPL 
5609 jeeee ASSSSHESSSSEAHSSHESHHSSSEHSSHSHESSSSHSEHSHESHSHESHESEHSSSESEHSHEHESHEHREROEREADED 


SEQ 196 


4 
mw 
w< 
“Nn 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001137 
073075" 
011746' 


104406 
012737 


012703 
004737 
103412 
016501 
012702 
005237 


104456 
001140 
072477' 
015374' 


104406 
013703 
013737 


012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 


071730° 
900002 


002212’ 


000400 072062’ 


000001 
010366' 


000002 
000200 
002212’ 


072062 


003114’ 072032' 


141001 072030’ 
072030’ 


C16 


SEQ 197 
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sREAD MESSAGE BUFFER EXTENDED STAIUS REGISTER ZERO (xSTO) 
i 
PUTTY Iiiiiiriiriiiriitiiitiiiiiirriritiiiriiiiiiiitt ttt 
MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 140$ sBR, IF EQUAL (OK) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26B0T ,PKTSSR sTAPE NOT AT BOT AFTER REWINO . 
TRAP CSERHRD 
-WORD 607 
«WORD T26B0T 
-WORD PKTSSR 
140%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
MOV 0256. , T26RSZ sSET RECORD SIZE 
PY UIVIVIV IVI iitiviirititiiiiirititriiriririirrirrirririiiiitriiit) 
a 
sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 1 REVERSE 
é 
PPT TI IT ITI rrr riiiitiriitiiitiriiiiiiiriiiiiiiiiiiiiititTiy 
145s: MOV 01,R3 sSPACE ONE RECORD PARAMETER 
JSR PC, _— sCALL SPACE ROUTINE 
6cs 150$ 3;BR, IF NO PROBLEM WITH SPACE COMMAND 
MOV TSSRCRS),R1 sGET TSSR 
MOV @SSR,R2 ;SET UP EXPECTED TSSR 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26SC,EXPREC ;POSITION (SPACE setae! — 
CSERHRD 
"WORD 608 
-WORD T26SC 
«WORD EXPREC 
150%: CKLOOP 
TRAP CsCLP1 
MOV T26RSZ,R3 sRECORD SIZE 
MOV FREE, TO6RB sSTARTING READ BUFFER ADDRESS 
POV UI IIITIITITiritiriiititiitiitriiiiiititiititrrittiitritiiriiiiitt 
i 
sREREREAD DATA,CvC=1,ACK COMMAND 
i 
PUTT IIVIT IIIT Tiiiiiiriiiitiiiiririiiiriitiririirririiiiiiiiiitity) 
MOV 9141001, T26PK3 sREREREAD DATA,CVC=1,ACK COMMAND 
165%: MOV OT26PK3,R4 ;SET UP R4& WITH PACKET ADDRESS 
MOV R3,T26SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSDOBCRS) + ISSUE COMMAND 
JSR PC ,WALTF sWAIT FOR SSR TO SET 
MOV TSSRC(RS),R1 3GET TSSR CONTENTS 
MOV @SSR,R2 sSET UP EXPECTED 
cmp R1,R2 sARE THEY EQUAL 
BEQ 170$ sBR, IF Ok 


T 
T 


S 
€ 


Vv 
bs) 


{IMRPKERBSTESTS 18 


5664 
5668 


$711 
5712 


056406 
056406 


005237 


104456 
001141 
073720' 
011746' 


104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
005237 


104456 
001142 
073142’ 
015374' 


002212' 


003114' 
000400 


002212' 


072062’ 


000412 


002212' 
017104' 


000017 


1708; 


1738: 


1808: 


1908: 


9993: 


3° 
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INC 
ERRHRD 


D16 


17:54 


FATFLG 
ERRNO, T26WDC ,PKTSSR 


ERRNO, T260TA,EXPREC 


(R4)> 
R2,R4 
R4,R3 
1733 
CR3)>6 

R3, T26RSZ 
0266. ,R3 
145$ 


FATFLG,15. 
999% 
PC ,CKDROP 


; 
sTEST 6, SUBTEST 2 


; 

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0 
s;AND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
;THE SAMt AS THAT USED IN SUBTEST 1, BU! IT IS 
;VERIFIEO THAT DATA STORED BY THE COMMAND CONTAINS 


sSWAPPED BYTES. 


BGNSUB 


sBUMP COUNT 
sTSSR INCORRECT AFTER nem DATA 


. WORD 


sLOOP IF SELECTED 


yRAP 
sCURRENT BUFFER ADDRESS TO R2 
sCURRENT RECORD SIZE 
sFIRST LOCATION IN BUFFER 
sSET UP POINTER 


sCHECK DATA READ (R3=DATA ALSO) 


sBR, IF ALL IS WELL 


sRECD DATA 

sEXPECTED DATA 

s;BUMP COUNT 

sDATA READ NOT = WRITTEN 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


;BUMP TO NEXT LOCATION 
sCORRECT RECORDS SIZE VALUE 
;END OF RECORD YET 

;8R, IF NOT AT ENO OF RECORD 
s;BUMP RECORD SIZE 

sRESET RECORD SIZE 

sENO OF RECORD YET 

3BR, IF MORE RECORDS TO READ 
;LOOP IF SELECTED one 


CSERHRD 
609 


T26WOC 
PKTSSR 


CscLPl 


CSERHRD 
610 
T260TA 
EXPREC 


CsCLPL 


CsCLP1l 


3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 


L10103: 
TRAP 


313 ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
;TRY TO OROP THE UNIT 


p>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
T6.2: 


CsESUB 


SEQ 198 


E16 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 SEQ 199 
TEST 6: REREADS 

056406 104402 TRAP C$6SuUB 

5713 056410 004737 074620' JSR PC, T26REST 3SET COMMAND PACKET 

5714 056414 004737 074712' JSR PC, T26RT2] 3SET UP OTHER COMMAND PACKET 

thes 056420 004737 074754’ JSR PC, T26RTS 3;SET UP OTHER COMMAND PACKET 

5717 PeVUTT ITT Tir itiiiiiititititttirittittrritiitrittiitititittti Titi ttt) 

5718 3 

Si35 ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

: 

5721 PPerirrrriTiritrriirri iri iritiiirttirritrirttiittrtiiitiriiitt titty) 

$722 

5723 056424 004737 015674' JSR PC,SOF INIT 300 INITIALIZE ON CONTROLLER 

5724 056430 103407 BCS 20$ ;6R IF INIT WAS OK 

5725 056432 005237 002212’ INC FATFLG ;BUMP COUNT 

5729 056436 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

5730 056440 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
056440 104455 TRAP CSEROF 
056442 001143 - WORD 611 
056444 003642’ ~WORD SFIERR 
056446 011734' .WORD SF IMSG 

eres 056450 013737 002172’ 071720' 20%: MOV UNITN, T260SW ;SET UP UNIT NUMBER 

thy 056456 012704 071700' MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 

5735 PTY YTV TIT iT iT rri rT Tritt ritrirrtriritititrritr iit tiitititii titi iti it 

5736 3 

tad ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

thes | 000600000000000000000000000000000000000000000000000000000000800066 

740 

5741 056462 004737 010562’ JSR PC,WRTICHR ; ISSUE WRITE CHARACTERISTICS 

5742 056466 103407 BcS 263 ;8R, IF COMMAND ISSUED OK 

5743 056470 005237 002212’ INC FATFLG sBUMP COUNT 

5747 056474 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

5748 056476 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
056476 104456 TRAP CSERHRO 
056500 001144 .WORD 612 
056502 005046' . WORD WRTMSG 
056504 011734’ . WORD SF IMSG 

5749 056506 26%: CKLOOP 3;LOOP IF SELECTED 

— 056506 104406 TRAP CSCLP1 

ee PUTT TTT ITTY irri tii itr iti itiittriiiiitititititirtiitiiiitittiit ty) 

é 

dies ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

ree | Mebaeeeboosesedsceonserersasaccesseneeessocnasssesssscasnsennesens 

5757 056510 004737 010714’ JSR PC ,REWIND s;CALL TAPE REWIND COMMAND 

5758 056514 103413 BCS 30$ ;8R, IF NO PROBLEM 

5759 056516 016501 000002 MOV TSSRCRS),R1 ;GET TSSR 

5760 056522 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED TSSR 

5761 056526 010004 MOV RO,R4 sPACKET ADDRESS SET UP 

5762 056530 005237 002212’ INC FATFLG ;BUMP COUNT 

5766 056534 . ERRHRD ERRNO, T26RWN,PKTSSR ;REWIND NOT ACCEPTED 
056534 104456 TRAP CSERHRD 
056536 001145 WORD 613 


Tsv7 


S7€é7 


5768 
5769 
5770 
S771 
5772 
5773 
5774 


REREADS 


056540 
056542 
056544 
056544 


073364' 
011746' 


104406 


013701 


015374’ 


104406 
012703 
013737 


012737 
012704 


011746’ 


104406 
005723 
022703 
001346 


- HARDWARE TESTS 1-8 
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071730" 
000002 


002212' 


000400 
003114' 


110005 
072030' 


017324' 
072036' 
000000 
016150’ 
000002 
000200 


%02212' 


000414 


F16 
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072032' 


072030' 


30$: CKLOOP 


FPAARHEHRAAAAREAAAHEREHEREAADEREHLAREAEASHSAEEAREHREEEAAEEESRASEAASEEEEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


3 
J PRMAAAAAARAARAASEAORESASAEHEASEAEAAEAEREEEERARASCEHAEASEASEEAAEEEEEEEESSE 


MOV T26BFR+6,R1 
MOV R1,R2 

BIS #B171,R2 
CMP R1,R2 

BEQ 40$ 


INC FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


40$: CKLOOP 
MOV 0256. ,R3 
MOV FREE, T26RB 


J SSHASARSSASASASAEEASESAAEHAAEEAREEABLELASAAESSEEESOASEEEASASHESEAREAAZES 


3 
;WRITE DATA,ACK,SWB COMMAND 
i 


F FASAAREESAAAASESESARSSEEAAEHEADESOESAEHESASASASEEAEASSEHESEESEAEDEEE 


MOV #110005, T26PK3 

MOV @T26PK3,R4 
65$: 

MOV R3,RO 

JSR PC,FILLMEM 

MOV R3,7T26SZ 

MOV R4,TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @#SSR,Re 

CMP R1,R2 

BEQ 75$ 

INC FATFLG 

ERRHRD ERRNO,WRTERR,PKTSSR 
75$; CKLOOP 

TST CR3)+ 

CMP #268. ,R3 

BNE 65$ 
80$: CKLOOP 


WORD T26RWN 
.WORD PKTSSR 

;LOOP IF SELECTED 
RAP CS$CLP1 

3PICK UP xXSTO 

3SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;D0ES EXP = REC'D 

;BR, IF EQUAL (OK) 

;BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 614 
WORD T26B0T 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLP1 

sRECORD SIZE 

sSTARTING WRITE BUFFER ADDRESS 

sWRITE DATA,ACK,SWB COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

;SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 615 
.WORD WRTERR 
. WORD Pr TSSR 

;LOOP IF SELECTED 
TRAP CscLPlL 


s;BUMP RECORD SIZE 
sEND OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 


SEQ 200 


SV7 - HARDWARE TESTS 1-8 


EST 6: 


REREADS 


056712 
056714 


057014 


5864 057020 


057024 
057026 
057032 
057036 


104406 


011746' 
104406 


013701 
010102 


015374' 


104406 
012737 


012703 
004737 
103412 
016501 
012702 
005237 


010714' 


000002 
000200 


002212' 


071730’ 
000002 


002212' 


000400 072062’ 


000001 
010366' 


000002 
000200 
002212’ 


G16 
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TRAP CS$CLP1 
1208: 


POU IU IIIT ririrririititiiitititiirrrriiiriirrr iit) 
‘ 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


t 
FARSAAAAAEASABASAADEDERAAEHAAEEEREREEABREEEAADRES EAEEAEEERESEHAEEEEESD 


JSR PC ,REWINOD sCALL TAPE REWIND COMMAND 

6cs 130$ 3BR, IF NO PROBLEM 

MOV TSSRCRS),R1 ;GET TSSR 

MOV #SSR,R2 ;SET UP EXPECTED TSSR 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 616 
-WORD T26RWN 
-WORD PKTSSR 

130$: CKLOOP ;LOOP IF SELECTED 


TRAP CsCLPl 


Perirrrir ttt riirititititiititiiitirititiiiiiiiiriiiitititiriit itty 
‘ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xXSTO) 


; 
F SSAAAEAHRAASAASASEEASEBESAEASHEESEAAEHESAESESASASAAESESDEASEEALESASAESEEEEE 


MOV T26BFR+6,R1 sPICK UP XxSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 

CMP R1,R2 ;D0ES EXP = REC'D 

BEQ 140$ ;BR, IF EQUAL (OK) 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 617 
-WORD T26B80T 
-WORD  EXPREC 

140$: CKLOOP ;LOOP IF SELECTED 

TRAP CsCLPl 

MOV 0256. ,T26RSZ ;SET UP RECORD SIZE 


J SSAAAAHEHASEAESEAALSEASADEEHASSEESEOHESAAAAEASEESEHAAAEASESASLADESESEDE 


; 
s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 


; 
FPAARSSASESAASESESAEASEHHSESSAASESESEHAASESHESSEKEEEAESSEESASEASEHAESESAEEES 


145$: MOV 1,R3 ;SPACE ONE RECORD PARAMETER 
JSR PC, SPACE sCALL SPACE ROUTINE 
BCS 150% ;BR, IF NO PROBLEM WITH SPACE COMMAND 
MOV TSSRCRS),R1 ;GET TSSR 
MOV OSSR,R2 ;SET UP EXPECTED TSSR 


INC FATFLG ;BUMP COUNT 


SEQ 201 


TSv? 
TEST 


- HARDWARE TESTS 1-8 
REREADS 


6: 


5872 


057042 
057042 
057044 
057046 
057050 
057052 
057052 
057054 
057060 


057066 
057074 
057100 
057104 
057110 
057114 
057120 
057124 
057126 
057130 
057134 
057134 
057136 
057140 
057142 
057144 
057144 
057146 
057152 
057154 
057160 
057162 
057164 
057166 
057170 
057172 
057176 
057176 
057200 
057202 
057204 
057206 
057206 
057210 
057212 
057214 
057216 
057220 
057222 
057226 
057232 


104456 
001152 
072477' 
015374' 


104406 
013703 
013737 


012737 


010337 
022703 
001270 


072062" 
003114' 


151001 
072030' 
072036' 
000000 
016150' 
000002 
000200 


002212' 


003114' 
000400 


002212' 


072062' 
000412 


H16 
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072032' 


072030' 


ERRHRD 


150$: CKLOOP 


MOV 
MOV 


ERRNO, T26SC ,EXPREC 


T26RSZ,R3 
FREE , T26RB8 


sPOSITION (SPACE RECORDS) FAILED 
TRAP 


CSERHRD 
. 618 
«WORD T26SC 
-WORD EXPREC 
TRAP CsCLP1 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


Peer irri titirirrrirriririiiiitiriritiiittttti YT 
° 
sREREAD DATA,CVC=1,ACK,SWB COMMAND 


6 
J SSARAAAAAEAAHAAASEEASAEEEEAELESEAEESEARARESADESEEESEEEEEEEEESEEEEEE 


165$: 


170$: 


173%: 


180$: 


#151001, T26PK3 
@T26PK3,R4 


TSSRCRS), R1 

@SSR ,R2 

R1,R2 

170$ 

FATFLG 

ERRNO, T26WOC ,PKTSSR 


C(R3)+ 
R3,T26RSZ 
0266. ,R3 
145$ 


sREREAD DATA,CVC=1,ACK,SWB COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 

3 ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


3;B8R, IF sae 
; BUMP COUN 
;TSSR ENCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
«WORD 619 
. WORD T26WOC 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
;CURRENT BUFFER ADDRESS TO R2 
sCURRENT RECORD SIZE 
;FIRST LOCATION IN BUFFER 
;SET UP POINTER 
;CHECK DATA READ (R3=DATA ALSO) 
3;BR, IF ALL IS WELL 
sRECD DATA 
;EXPECTED DATA 
;BUMP COUNT 
;DATA READ NOT = WRITTEN 
TRAP C.ERHRD 
-WORD 620 
. WORD T26DTA 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLPl1 


sBUMP TO NEXT LOCATION 
sCORRECT RECORDS SIZE VALUE 
sEND OF RECORD YET 

;BR, IF NOT AT END OF RECORD 
sBUMP RECORD SIZE 

sSTORE RECORD SIZE 

sEND OF RECORD YET 

;BR, IF MORE RECORDS TO READ 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


5920 
$921 


$922 
5923 
5924 
5925 
5926 
5927 


057234 
057234 
057236 
057236 
057236 
057240 
057246 
057250 
057254 


057254 
057254 
057254 
057256 
057262 
057266 
057272 


104406 


104403 
023727 
103402 
004737 


002212' 
017104' 


074620' 
072056‘ 
074712' 
074754' 


T16 
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000017 


190%: CKLOOP ;LOOP IF SELECTED 
TRAP CS$CLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10104: 
TRAP CsESUB 
CMP FATFLG,@15. :IS ERROR COUNT AT 25 
BLO 999% ;BR, IF LESS THAN 25 
one JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


3¢ 
: 
sTEST 6, SUBTEST 3 


i 

sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1 
;CREAD REVERSE, SPACE FORWARD) AND SWB=0 OPERATES 
;PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
sWITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
sDATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD 
s;CONTAIN ITS RECORD NUMBER CINDICATING POSITION ON 
;TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
sTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 


; 
31. THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED 
3 AND THE RESULTS CHECKED 


A READ FORWARD COMMAND IS THEN ISSUED AND THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START OF THE TEST RECORD). THE 
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START OF THE NEXT TEST RECORD. 


;THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET 
;TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 


~ 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>> 
T6.3: 
TRAP Cs$BSUB 
JSR PC, T26REST ;SET COMMAND PACKET 
CLR T26CNT ;CLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2] ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


FPASAAAHAAASEABAEASORHAAASESASEAESE EASE AAEAEASEAEASESEOASEEOEAAEEESD 


‘ 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


‘ 
FPSEAAASHEHES AEAEEEHEEESEEEHEESHEEEEHERSEESEASHESEREEAEASEESEHASEHAESASEELES 


SEQ 203 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


5972 
5973 
5974 
5978 
5979 


057276 


057322 
057330 


057334 
057340 
057342 
057346 
057350 
057350 
057352 
057354 
057356 
057360 
057360 


057416 


004737 
103407 
005237 
010001 
104455 
001155 
003642' 
011734' 
013737 


012704 


011746' 
104406 


015674' 
002212' 


002172' 
071700' 


010562' 
002212' 


010714’ 


000002 
000200 


002212’ 


J16 
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071720' 


JSR 4S arlene s00 INITIALIZE ON CONTROLLER 


BCS sBR IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS oa 5 
A 
. WORD 
. WORD 
. WORD 
208: MOV UNITN, T260SW ;SET UP UNIT NUMBER 


MOV @T26PACKET ,R4 
{FRAP AAAAAEEAEAAEEEEEEEEEEAEEEEEEEEDEAAREEEEEEEDADEEEAEEEDEDEE DEEDS 
; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
iH 


FSF#ASAAAASARAASEAHAREAAESAAAAESASARSESASSEASESAADESAEEESEEAAESEEESEESEEESD 


JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 

BCS 26% ;BR, IF COMMAND ISSUED OK 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC 4~ > y 
. WORD 
. WORD 
. WORD 

268: CKLOOP ;LOOP IF SELECTED 

TRAP 


J PAARAAEAKASAASESEAEAASELELASEAAASAREHEAASHEEABARESEAEASEAEEEEESEESESEDE 


; 
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
fF PAAAEASESASAAESRESHASESEAESEAASESAAAEEAEAEESAEESEEASESASESEEEESEEE 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

BCS 30$ :8R, IF NO PROBLEM 

MOV TSSRCRS),R1 ;GET TSSR 

MOV #SSR,R2 ;SET UP EXPECTED TSSR 

MOV RO,R4 sPACKET ADORESS SET UP 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED seis 
. WORD 
. WORD 
. WORD 

30$: CKLOOP sLOOP IF SELECTED 

TRAP 


FAKE AAAEARASOHAREEAAESESSEHESETASEADAESEDESASSASESESEAESERASEDADE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


‘ 
FRASSASEAHKARAASHARSHAHOSAERASAREHROESEEASEEREEASESESESESEAAEESEEESEEEAES 


+SUBROUTINE NEEDS PACKET ADDRESS 


CSERHRD 
622 

WRTMSG 
SF IMSG 


CSsCLP1 


CSERHRD 
623 
T26RWN 
PKTSSR 


CSCLPl 


SEQ 204 


K16 
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TEST 6: REREADS 

6024 057420 013701 071730' MOV T26BFR+6,R1 ;PICK UP xSTO 

6025 057424 010102 MOV R1,R2 ;SET UP EXPECTED 

6026 057426 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 

6027 057432 020102 CMP R1,R2 ;D0ES EXP = REC'D 

6028 057434 001406 BEQ 40$ ;BR, IF EQUAL (OK) 

6029 057436 005237 002212’ INC FATFLG ;BUMP COUNT 

6033 057442 ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
057442 104456 TRAP CSERHRD 
057444 001160 . WORD 624 
057446 073075’ WORD T26B0T 
057450 015374' .» WORD EXPREC 

6034 957452 408: CKLOOP ;LOOP IF SELECTED 
057452 4104406 TRAP CSCLP1 

6035 057454 012703 000400 MOV #256. ,.R3 sRECORD SIZE 

eost 057460 013737 003114’ 072032’ MOV FREE, T26RB ;STARTING WRITE BUFFER ADDRESS 

6038 Pert ri riririrtrtrirrtrtr iti titiritrtt titi ttitirititititiitittttti itt) 

6039 ; 

eeat ;sWRITE DATA,CVC=1,ACK COMMAND 

Hy 

6042 Pyrrrrirrtr iti ri tri tri tri titi itt itittrititiitrritittittittttitititt) 

6043 

6044 057466 012737 140005 072030’ MOV #140005, T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 

6045 057474 012704 072030’ MOV @T26PK3,R4 3;SET UP R4 WITH PACKET ADDRESS 

6046 057500 65$: 

6047 057500 010300 MOV R3,RO ;SET PATTERN IN CORRECT REGISTER 

6048 057502 004737 017324' JSR PC ,FILLMEM sFILL MEMORY WITH RECORD SIZE 

6049 057506 010337 072036’ MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 

6050 057512 013777 072056’ 123374 MOV T26CNT , O9FREE sMOVE TAPE RECORD NUMBER TO SUFFER 

6051 057520 062737 000001 072056’ ADD #1, T26CNT ;NUMBER READY FOR NEXT RECORD 

6052 057526 010465 000000 MOV R4,TSOBCRS) ; ISSUE COMMAND 

6053 057532 004737 016150’ JSR PC ,WAILTF sWAIT FOR SSR TO SET 

6054 057536 016501 000002 MOV TSSRCRS),RL ;GET TSSR CONTENTS 

6055 057542 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 

6056 057546 020102 CMP R1,R2 ;ARE THEY EQUAL 

6057 057550 001406 BEQ 75$ ;BR, IF oF 

6058 057552 005237 002212’ INC FATFLG ;BUMP COUN 

6062 057556 ERRHRD ERRNO,WRTERR,PKTSSR :TSSR SNCORRECT AFTER wa * DATA 
057556 104456 CSERHRD 
057560 001161 a NORD 625 
057562 005103’ .WORD WRTERR 
057564 011746' . WORD PKTSSR 

6063 057566 75$: CKLOOP ;LOOP IF SELECTED 
057566 104406 TRAP CSCLP1 

6064 057570 005723 TST (R3)+ ;BUMP THE RECORD SIZE 

6065 057572 022703 000414 CMP #268, ,R3 sMAXIMUM SIZE YET 

6066 057576 001401 BEQ 120$ ;BR, IF AT END OF WRITE SEQUENCE 

6067 057600 000737 BR 65$ ;WRITE MORE RECORDS 

6068 057602 1208: 

conn 057602 005037 072056' CLR T26CNT ;SET RECORD COUNTER BACK TO ZERO 

6071 PRAAAAEREEAAARERERAREAEREREEERARERAREREEAEEREEDADAEAERAREREDREAEDED 

6072 3 

rh ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

3 
6075 FAPEAASSEHEAAAEHEDEAEASAEHEERASESEEREAEEEEEEALEAEASEESEHEEEEEEEAEEEEDESD 


TSV7 - HARDWARE TESTS 1-8 
READS 


TEST 6: RE 


6105 057676 
057676 


6114 057700 
6115 057704 
6116 057710 
6117 057714 


6125 057722 
6126 057730 
6127 057734 
6128 057740 
6129 057744 


010714' 


000002 
000200 


002212' 


011746’ 
104406 


013701 071730' 
02 


1406 
005237 902212’ 


104456 
001163 
073075’ 
015374' 


104406 


012703 
004737 
012703 
013737 


000001 
010366' 
000400 
003114' 


012737 
012704 
010337 
010465 


004737 016150’ 


MACRO M1113 


072032' 


072030' 


130$: CKLOOP 


L16 
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PC ,REWIND 
130$ 
TSSRCRS),R1 


G 
ERRHRD ERRNO, T26RWN,PKTSSR 


sCALL_ TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 

;GET TSSR 

sSET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sBUMP COUNT 

sREWIND NOT ACCEPTED 


{ SASAASHAKASSASABAEDASARESEEALESAHESESASESALREAEABREAEAAESESAESEEEAAELES 


3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
FPRAAAREAAAAALSESEASARESEAASAAEAASEEEEASABESAAEREADAEEEEASESESEEAEEED 


LG 
ERRHRD ERRNO, T26B0T ,EXPREC 


1403: CKLOOP 


as piesa 


TRAP CSERHRD 
-WORD 626 
-WORD T26RWN 
«WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLPlL 
sPICK UP XSTO 
3;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
;BUMP COUNT 
; TAPE NOT AT BOT AFTER ny 
CSERHRD 
THORO 627 
-WORD T26B80T 
«WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 


FFSAAEASAEAAARESESAAASEEAERASEODREEEEASEREAADREEEEOEE4EEEOOOEEEEEEDEES 


; 
; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


;BIT 15 SETS DIRECTION - O=FORWARD 


1=REVERSE 


a 
{FSSA AHAAAREASSASEAEESALERAASEEACABRESASASLEASEHEESOSASEASHESEESSEKEDDESE 


150$: 


3 
FREE, T26RB 


:SPACE 1 RECORD FORWARD 
sSPACE CALL 

sRECORD SIZE 

;STARTING READ BUFFER ADDRESS 


FASAAEHASAAASEAAEAEASESHAASALAAESASEAESABADESAASESASEEEHAHESHELESOREAEES 


é 
sREREAD DATA,CVC=1,ACK, OPP COMMAND 


3 
J SHHSASAAABAEASASEEASASEEASADAEEALASASEEASATESADESEASAASDEEHESEASESEESED 


MOV 
MOV 
MOV 
MOV 
JSR 


165$: 


#161001, T26PK3 
@T26PK3,R4 
R3,T26SZ 
R4,TSOBCRS) 
PC, ,WALTF 


sREREAD DATA,CVC=1,ACK, OPP COMMAND 
3SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 


SEQ 206 


FEST “eS*ARMENESTESTS 1-6 


057750 
057754 
057760 
057762 
057764 
057770 
057770 
057772 
057774 
057776 
060000 
060000 
060002 
060004 


060132 


016501 
012702 
020102 
001406 
005237 


104456 
001164 
072402' 
011746’ 


104406 
005723 
062737 


012737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
001165 
005176’ 
011746’ 


072066' 
015374' 


104406 
022703 
001401 
000672 


104403 
023727 


000002 
000200 


002212' 


000001 


140001 
072036' 
000000 


016150’ 
000002 
000200 


002212’ 


123022 
072056’ 


002212’ 


000412 


002212' 


M16 
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072056' 


072030’ 


000017 


INC 
ERRHRD 
170$: 


CKLOOP 


TST 
ADD 


nae 


FATFLG 
ERRNO, T26RRG,PKTSS« 


CR3)+ 
#1, T26CNT 


sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


{ PRAAAASAAHRARABAEAAAAREAAAEAASASABELADEAEEASALABREEESEDASEAAESEEASESLESD 


é 
READ DATA, CvC=1, ACK COMMAND 
‘ 


{SAAR AASARASEAAEASAABEAREADARABRESEAASERAEASAEEAEAAAESEEARERAADEEAESD 


195$: 


197%: CKLOOP 


CMP 
BEQ 
BR 


ENDSUB 


2008: 


CMP 


#140001, T26PK3 


PC ,WAITF 
TSSRCRS),R1 
#SSR ,R2 


FATFLG 
ERRNO, RDERR ,PKTSSR 


@FREE ,R1 
T26CNT ,R2 
G 
ERRNO, T26WNG, EXPREC 
#266. ,R3 


200$ 
150$ 


FATFLG, #15, 


SEQ 207 


;6R, IF OK 

;BUMP COUNT 

3TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
-WORD 628 
. WORD T26RRG 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

;BUMP RECORD SIZE 

;BUMP TAPE RECORD COUNTER 

sREAD DATA, CVC=1, ACK COMMAND 

3;SET SIZE INTO PACKET 

s ISSUE READ DATA COMMAND 

;WAIT FOR SSR 

;PICK UP THE TSSR 

;SET UP EXPECTED 

;IS THE TSSR OK 

;BR, IF TSSR OK (GOOD) 

;BUMP COUNT 

;READ DATA COMMAND FAILED 
TRAP CSERHRD 
-WORD 629 
.WORD RDERR 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

3FIRST WORD FROM READ BUFFER 

;SET UP EXPECTED 

:IS TAPE POSITION CORRECT 

3KEEP GOING POSITION OK 

;BUMP COUNT 

; TAPE POSITION INCORRECT 
TRAP CSERHRD 
.WORD 630 
. WORD T26WNG 
-WORD EXPREC 
TRAP CSCLPL 


sAT MAX SIZE YET 
3;BR, IF AT END OF THE SUBTEST 
s;KEEP GOING MORE RECORDS 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10105: 
TRAP 
:IS ERROR COUNT AT 25 


CSESUB 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


€179 060140 103402 


TEST 6: 


060142 
060146 


060226 
060232 
060234 
060240 
060242 


004737 


011734° 
013737 


012704 


004737 
103407 
005237 
010001 


017104" 


0156 74° 
002212" 


002172' 
071700' 


010562" 
002212" 


Bi 
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071720° 


BLO 999% sBR, IF LESS THAN 25 
ene JSR PC ,CKDROP sTRY TO DROP THE UNIT 
: 


a*¢ 

é 

sTEST 6, SUBTEST 4 

t 

sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP+1 
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
sTHE SAME THAT IS USED IN SUBTEST 35, BUT IT IS 


sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
sSWAPPED BYTES. 


BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T . 
TRAP Cs6SU8 


JSR PC, T26REST 3SET COMMAND PACKET 


CLR T26CNT . $sCLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 2  sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 


a) 


3 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
FSSSHSSHASHSHSSSSHSSESESESEHSHSHSEEESEHHEEHEESSESEEEEHEEEEESEEEHEEESEEESO 


JSR PC, SOF INIT 300 INITIALIZE ¥? CONTROLLER 


ecs 20% s6R IF INIT WAS OK 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
«WORD 631 


-WORD SFIERR 
-WORD SFIMSG 
208%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
PPC OUI iiiiriiiiiiriririitiliiiiiiiririri tii iit) 


é 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


3 
FSSSSESHSSSHSSSHSHSSHESSSASEEESSESESSEHSESHEEHESEHEEHEEHEHESEEEEEESEOEOOESD 


JSR PC,WRICHR sISSUE WRITE CHARACTERISTICS 
BcsS 26% s8R, IF COMMAND ISSUED OK 
INC aa sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 


ERRHRD ERRNO, WRIMSG, CF IMSG sWRITE CHARACTERISTISC FAILED 


SEQ 208 


TES? “er REREADS S'S 1 


060360 
060 366 


104456 
001170 
005046 ° 
011734' 


104406 


011746" 
104406 


013701 


015374° 


104406 
012703 
013737 


012737 
012704 


010714’ 


000002 
000200 


002212" 


071730' 
000002 


002212' 


000400 
003114' 


140005 
072030’ 


Cl 
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072032’ 


072030' 


gat 


265: CKLOOP sLOOP IF SELECTED 
TRAP 


: 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


JSR —— sCALL_ TAPE REWIND COMMAND 


Bcs BR, IF NO PROBLEM 

MOV TSSRCRS),R1 sGET TSSR 

MOV @SSR ,R2 sSET UP EXPECTED TSSR 

MOV RO,R4 sPACKET ADORESS SET UP 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED a 
. WORD 
. WORD 
~WORD 

30$: CKLOOP sLOOP IF SELECTED 

TRAP 


POI iiriiiiririiiviiiiiiiiiiiiriiiiittiitiitiiiity 
é 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZEKD (xSTO) 


3 
FSSSSSHSSHSHSSSSSSSESSSHESEHEHHESEHSHEEEHESHASEEEHEEESESEHOHEEHOHHEEEE 


MOV T26BFR+6,R1 sPICK UP xSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 

R1,R2 sD0ES EXP = REC'D 

BEQ 40% sBR, IF EQUAL (OK) 

aNC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER — 
. WORD 
- WORD 
. WORD 

40%: CKLOOP sLOOP IF SELECTED — 
MOV #256. ,R3 sRECORD SIZE 
MOV FREE, T26RB sSTARTING WRITE BUFFER ADORESS 


PUPP rrr rriiiririiiiriririririitititti ity 
6 

sWRITE DATA,CVC*1,ACK COMMAND 

> 

PPC IIIT rir riiiiriiriiirriiitiiiiriiitiirit Tt iit 


MOV #140005, T26PK3 sWRITE DATA,CVC*1,ACK COMMAND 
MOV OT26PK3,R4 sSET UP R4 WITH PACKET ADDRESS 


CSERMRD 
632 
WRTMSG 
SF IMSG 


CsCLP1 


CsCLP1 


CSERHRD 
634 


T2680T 
EXPREC 


CscLPL 


SEQ 209 


FESF “et *RPKERBS"ESTS 1 -* 


D1 
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MOv R3,RO 

JSR PC.FILLMEM 
MOV R3,12652 

MOV TO6CNT , OF REE 
ADD #1, T26CNT 
MOV R4, TSDOBC(RS) 
JSR PC ,WAILTF 

MOV TSSACRS »,R1 
MOV @SSR RO 

CMP R1,R2 

BEQ 75$ 

INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 
CKLOOP 

TST C(R3)+ 

CMP 0266. »R3 

BEQ 1208 

BR 65% 

CLR T26CNT 


sSET PATTERN IN CORRECT REGISTER 

sFILL MEMORY WITH RECORD SIZE 

sSET UP RECORD SIZE IN PACKET 

sMOVE TAPE RECORD NUMBER TO BUFFER 

sNUMBER READY FOR NEXT RECORD 

TISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

s6R, IF OK 

sBUMP COUNT 

i TSSR INCORRECT AFTER ao DATA 

CSERHRD 

MMORD 635 
-WORD WRTERR 
.WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 


sBUMP THE RECORD SIZE 
sMAXIMUM SIZE YET 


:BR, IF AT ENO OF WRITE SEQUENCE 


sWRITE MORE RECORDS 


sSET RECORD COUNTER BACK TO ZERO 


FSSSSHSHASSSHSSSHSHSHHSSSESSSESHSSSEESHEHASEHESEEEHEEHSHEEHEESEEEHEEHEEESEEEED 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FSSSSHNHSSASHSSSSHSSHHSSHSSSSSEHEHSOHHESSEEHESSESEEEEEEEEEEEEEHEHEEEEEESEE 


653: 
010300 
004737 v17324' 
010337 072036’ 
013777 072056’ 122502 
062737 000001 v72056' 
010465 000000 
004737 016150’ 
016501 000002 
012702 000200 
02.0102 
001406 
005237 002212’ 
104456 
001173 
005103' 
011746 
758: 
104406 
005723 
022703 000412 
001401 
000737 
1208: 
005037 072056’ 
004737 010714' 
103413 
016501 000002 
012702 000200 
010004 
005237 002212’ 
104456 
001174 
073364’ 
011746' 
1308: 
104406 


JSR PC ,REWINO 
BCS 1308 

MOV TSSRCRS),R1 
MOV @SSR,R2 
MOV RO,R4 

INC FATF 


LG 
ERRHRD ERRNO, T26RWN,PK ISSR 


CKLOOP 


;CALL TAPE REWIND COMMAND 
s6R, IF NO PROBLEM 

;GET TSSR 

sSET UP EXPECTED TSSR 
sPACKET ADORESS SET UP 
sBUMP COUNT 

; REWIND NOT ACCEPTED 


sLOOP IF SELECTED 
TRAP 


J SSSSHSSSSSSSSSSSESSHSSHESSESESESHESESSSSSHESHSESHESHASSHHEHEHEHEESCHEHEOESE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


i 
FSSSSSHSSHSHSESSSSSSEEHESSSHSEESESSEHEHHHEHHHEEHSEHEESEEHHEHEHEEEEHEOEEEES 


013701 071730' 
010102 
052702 000002 
020102 


MOV T26BFR+6,R1 
MOV R1,R2 

BIS *BIT1,R2 
CMP R1,R2 


sPICK UP xSTO 

3SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
:;D0ES EXP = REC'D 


CSERHRD 
636 


T26RWN 
PKTSSR 


CscLP1 


SEQ 210 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


6337 
6338 


6342 060560 


6388 


060726 


001406 
005237 


104456 
001175 
073075’ 
015374° 


104406 


012703 
004737 
012703 
013737 


012737 


015374’ 


002212" 


000001 
010366’ 
000400 
003114’ 


122214 
072056' 


002212" 
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BEQ 140$ 


INC FATFLG 
ERRHRD 


1408: CKLOOP 


ERRNO, T26B0T , EXPREC 


sBR, IF EQUAL (OK) 

sBUMP COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 637 
«WORD T26B0T 
-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CsCLP1 


FPSSHASHHHASSHSHESESASESEEEEEEEAESESEOEESEEHEOESEEAEESEOEESEHEEEEEOEEE 


: 
s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


sBIT 15 SETS DIRECTION - O=FORWARD 


1 "REVERSE 


é 
FPSAASHHAHSASASAHSHESASESEESEESEEEESEEHEEOSEEESEEEEEEEHARESHEEEEEEEEOEEEE 


sSET UP SPACE FORWARD 1 
sISSUE SPACE COMMAND 

sRECORD SIZE 

sSTARTING READ BUFFER ADDRESS 


FPSSOSHEHAHAHSESH SSH ASHSESEHESAEEHESHEHSEHESEEEEEEEESEESESEHEEHEEHEEEESEEED 


3 
FSSSHSSHSTSSSSSESESSHESEEESESEESEHEEEEEHEAEEEEEEEEEEEHEEEEEEAEOEEEOEEDE 


MOV 1,R3 

JSR PC, SPACE 

MOV 0256. .R3 

072032: 1503: MOV FREE, T26RB 
3 
sREREAD DATA,CVC*1,ACK, OPP COMMAND 
072030' MOV #171001, T26PK3 

165$: MOV @T26PK3,R4 

MOV R3,T26SZ 

MOV R4,TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRC(RS),R1 

MOV @SSR ,R2 

CMP R1,R2 

BEG 1703 

INC FATFLG 

ERRHRD ERRNO, TO6RRF ,PKTSSR 
1708: CKLOOP 

MOV @FREE ,R1 

MOV T26CNT RO 

SWAB Ro 

CMP R1,R2 

BEQ 190$ 

INC FATFLG 

ERRHRD ERRNO, TO6WNG,EXPREC 
190$: CKLOOP 


sREREAD DATA,CVC=1,ACK, OPP COMMAND 
sSET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 


;B8R, IF OK 
sBUMP COUNT 
3TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
«WORD 638 
. WORD T26RRF 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sFIRST WORD FROM READ BUFFER 
;SET UP EXPECTED 
:SWAP BYTES IN EXPECTED 
:IS TAPE POSITION CORRECT 
sKEEP GOING POSITION OK 
sBUMP COUNT 
3 TAPE POSITION INCORRECT 
TRAP CSERWRD 
-WORD 639 
. WORD T26WNG 
.WORD EXPREC 


SEQ 211 


TSV7 - HARDWARE TESTS 1-8 


TEST 6: REREADS 


104406 
005723 
062737 


012737 


072236' 
011746' 


104406 
017701 
013702 
020102 
001406 
005237 


104456 
001201 
072066' 
015374" 


104406 
022703 
001401 
000654 


104403 
023727 
103402 
004737 


000001 072056’ 


140001 072030' 
07 , 


122074 
072056’ 


002212’ 


000410 


002212’ 000017 
017104’ 


Fi 
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TsT (R3)-+ 
ADD 01, T26CNT 


fF POSSHHSHSEHHSASESSESHEHEESSEHEESESEEESEEEOEEEEESESEEHEHEEEAEHEESESEEEEEEEESE 


° 
sREAD DATA, CvC=1, ACK COMMAND 


‘ 
FASSSSHASHSASSHESSHESHSHESEEESASEEEEEEESEEEEHESEESASEESESEEEEEEEEEEEEEE 


MOV #140001, T26PK3 


MOV R3,726S5Z 
MOV R4,TSDOBCRS) 
JSR PC ,WALTF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 215% 

INC FATFLG 


2158: CKLOOP 
MOV @FREE .R1 
MOV T26CNT ,R2 
CMP R1,R2 
BEQ 2178 
INC FATFLG 
ERRHRD ERRNO, T26WNG,EXPREC 
2178: CKLOOP 
CMP 0264. ,R3 
BEQ 2208 
BR 150$ 
2208: 
ENDSUB 
CMP FATFLG,@15. 
BLO 9993 
JSR PC ,CKDROP 
999%: 


3? 
é 
sTEST 6, SUBTEST S 


SEQ 212 

TRAP CS$CLPl 

sNEXT RECORD SIZE 

sBUMP TAPE RECORD COUNTER 

sREAD DATA, CvC=1, ACK COMMAND 

sSET SIZE INTO PACKET 

s ISSUE READ DATA COMMAND 

;WAIT FOR SSR 

;PICK UP THE TSSR 

;SET UP EXPECTED 

;IS THE TSSR OK 

;BR, IF TSSR OK (GOOD) 

;BUMP COUNT 

sREAD DATA COMMAND FAILED 
TRAP CSERHRD 
.WORD 640 
-WORD T26ROF 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

sFIRST WORD FROM READ BUFFER 

3SET UP EXPECTED 

:IS TAPE POSITION CORRECT 

sKEEP GOING POSITION OK 

;BUMP COUNT 

;TAPE POSITION INCORRECT 
TRAP CSERHRD 
WORD 641 


"WwORD T26WNG 
“WORD €XPREC 


TRAP CscLP1 
sAT MAX SIZE YET 
BR, IF AT END OF THE SUBTEST 
sKEEP GOING MORE RECORDS 


;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10106: 
TRAP CsESuUB 
:IS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


; 

;VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
;RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 


Bn 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


6439 
6440 
6441 


061074 
061074 
061074 
061076 
061102 
061106 


104402 
004737 
004737 
004737 


011734' 
013737 


012704 


004737 
103407 
005237 
010001 


104456 
001203 
005046 ' 
011734’ 


104406 


074620' 
074712’ 
074754 ' 


015674" 
002212’ 


002172" 
071700' 


010562" 
002212’ 


Gl 
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sLONG CRLL) BIT SET. RESULTS ARE 
sSTATES OF OPP (0 AND 1). 


BGNSUB 

JSR PC, T26REST 
JSR PC, T26RT2 
JSR PC, T26RTS 


VERIFIED FOR BOTH 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>> >>> 
T6.5: 


TRAP 
3SET COMMAND PACKET 
+SET UP OTHER COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 


f PROOOASSOEEEEEEEEEEES: SEREEEEEEEEEEESESEEEEEEEDESEEEEEODEDEEEEEEE 
‘ 

sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

3 


J SSSSSASSSESSSSSSSEESESESESHE LEEHHEHEOHEHSEHESHEHEEHEHESEEAEHEEHEEEEEHEEEEOEEEE 


JSR PC,SOF INIT 

BcS 203 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO,SFIERR,SFIMSG 
071720' 20%: MOV UNITN, T260SW 

MOV @T26PACKET ,R4 


s00 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
- WORD 


. WORD 
;SET UP UNIT NUMBER 


CsB8SuUB 


;SUBROUTINE NEEDS PACKET ADDRESS 


F SSHHSHASSHAHSSSASHSSSHSASSHESSESESHEESSESEHEEEESESHEHEEEEHESEEEEKEEEEESEEDOEEE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


3 
F SSSSSHASHSHESSSSSSSEAEHSSESESESESESESSHESHEHESESEAEHHEEESEEEHHEEEEEEKEDDE 


JSR PC, ,WRICHR 
BcS 26% 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


26%: CKLOOP 


; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 
:BUMP COUNT 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC 4+" 


;LOOP IF SELECTED 


FPOSSSHSSHHEHSESSHEASHESESSESESEEESESEEHEESHEHEHEHESEHEEHESHEEESESEHREEEEEEDESE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
+ 


FPSSSSASSASHSEESESSSEESEEHESEES! SCHEEHEHEHEEHESSEEHEHEHESEHEHESEHERESEEEEEHEED 


CSERHRD 


CsCLP1 


SEQ 213 


TSV7 - HARDWARE TESTS 1-8 
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011746' 
104406 


013701 


015374' 
104406 


012703 
013737 


012737 
012704 


010337 


010714’ 


000002 
000200 


002212' 


071730' 
000002 


002212’ 


001000 
003114' 


140005 
072030' 


072036’ 
900000 
016150' 
000002 
000200 


002212' 


MACRO M1113 


072032’ 


972030' 


30$: 


Hi 


01-FEB-84 17:54 


ERRHRD 


CKLOOP 


PC, ——— 


30% 

TSSRCRS),R1 

@SSR ,R2 

RO, Ra 

FATFLG 

ERRNO, T26RWN,PKTSSR 


sCALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 

sGET TSSR 

sSET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sBUMP COUNT 

sREWIND NOT ACCEPTED 


J FSSSHEHAEHAHSSSASASESOSHASESEEESEEESEHASEEEEEEAREEASESEEEASESEHECEEOEEESE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xS10) 


i 
FPSSSASAAAHHSESSEAAAASESESEEEEEREEEAEEEEEEEEEESEEAEEEEESEHEESEEOEKEEDEED 


40$: 


MOV 
MOV 


T26BFR+6,R1 
R1 


FLG 
ERRNO, T26B0T ,EXPREC 


#5i2.,R3 
FREE , T26RB 


FPSSHEHHAHSHAHSSEHESHESSHESSSESESESEESEEESEESEEEHSHESESEREEASEHEHEEEHEEEEEEEHEEEED 


é 
sWRITE DATA,CVC=1,ACK COMMAND 


é 
FSSSOSHESEHAHSEHESHSSESSESSESEESEHESESEEASEESEASEASEEEESEEEEEEEHEHAESEEEAEEEEDESD 


65$: 


ERRHRD 


#140005, T26PK3 
OT26PK3,R4 


R3,1T26SZ2 
#SSR,R2 


LG 
ERRNO, WRTERR,PKTSSR 


TRAP CSERHRD 
-WORD 644 
. WORD T26RWN 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
sPICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
:BR, IF EQUAL (OK) 
; BUMP COUNT 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 645 
. WORD T2680T 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 
sRECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
: ISSUE COMMAND 
s;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
3SET UP EXPECTED 
;ARE THEY EQUAL 
;BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 646 


SEQ 214 


ie | 
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061354 005103' WORD WRTERR 
061356 011746’ ~ WORD PKTSSR 

6545 061360 753: CKLOOP ;LOOP IF SELECTED 
061360 104406 TRAP CSCLP1 

6546 061362 005303 DEC R3 sSET RECORD SIZE TO 511. 

ooaa 061364 013737 003114'-072032' MOV FREE, T26RB8 sSTARTING READ BUFFERS ADDRESS 

6549 FAMOARAAEEEAARASEESESEAEREREEEEEREREEEEEEEEASEHARAREAEREREREED LEASES 

6550 8 

Saat sREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 

a 

6553 SPROAEAEAEAEEEEEEREREDAREDERODEAEDEEERERERAEDEEEEERADERERADEDEEEEDSE 

6554 

6555 061372 012737 161001 072030’ MOV #161001, T26PK3 sREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 

6556 061400 012704 072030’ 165$: MOV @T26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

6557 061404 010337 072036: MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 

6558 061410 010465 000000 MOV R4,TSOBCRS) sISSUE COMMAND 

6559 061414 004737 016150' JSR PC ,WAITF sWAIT FOR SSR TO SET 

6560 061420 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

6561 061424 012702 100204 MOV @SSR!ISC!BIT2,R2 ;SET UP EXPECTED 

6562 061 *: 020102 CMP R1,R2 sARE THEY EQUAL 

6563 061432 001406 BEQ 170$ ;BR, IF OK 

6564 061434 005237 002212’ ; INC FATFLG :BUMP COUNT 

6568 061440 ERRHRD ERRNO, T26TRL,.PKTSSR ;TSSR INCORRECT AFTER REREAD DATA 
061440 104456 TRAP CSERHRD 
061442 001207 . WORD 647 
061444 074442' .WORD T26TRL 
061446 011746’ . WORD PKTSSR 

6569 061450 1708: CKLOOP ;LOOP IF SELECTED 

este 061450 104406 TRAP CSCLP1 

ye fF PPRASAEHEHEEEASESEAEASEEEAEEEEEREREREEEADLEREEEEEEDDEDREDEEEREDEEEEES 

6572 H 

thy sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

3 

ore FORAMEAREASERESEESAEEESEEREEEAESEEEEEEEREEEOEEEEREEDEEDEEEEREREDEES 

6576 

6577 061452 013701 071730' MOV T26BFR°6,R1 ;GET MESSAGE BUFFER 

6578 061456 010102 MOV R1,R2 ;SET UP EXPECTED 

6579 061460 052702 010000 BIS oB1IT12,R2 ;SET THE RLL BIT IN EXPECTED 

6580 061464 020102 CMP R1,R2 sARE THEY EQUAL 

6581 061466 001406 BEG 180$ 3BR, IF EQUAL CALL IS WELL) 

6582 061470 005237 002212’ INC FATFLG ; BUMP COUNT 

6586 061474 ERRHRD ERRNO, TO6LON,EXPREC ; THE RLL BIT WAS NOT SET nl xsTo 
061474 104456 TRAP CSERHWRD 
061476 001210 . WORD 648 
061500 074210' . WORD T26LON 
061502 015374' . WORD EXPREC 

6587 061504 180$: CKLOOP sLOOP IF SELECTED 
061504 104406 TRAP CsCLPlL 

6588 061506 012703 000777 MOV #511. ,R3 3SET RECORD SIZE 

ee 061512 013737 003114' 072032’ MOV FREE, T26RB sSTARTING READ BUFFER ADDRESS 

6591 SPORE EHEE*ALEEEEEHEEEESEEEEEEOEEREEHOEEEEOEEEEESEDOEEEEDERELLE 

6592 


: 
6593 sREREAD DATA,CVC#1,ACK COMMAND 
‘ 
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6595 , FPAAAEAEHAEEEROEREEEHEEEEAEEEEEEEREEEREEOEEEEEEEEDRERDEAAEEEAEEEEEEES 

6596 

6597 061520 012737 141001 072030’ MOV #141001, T26PK3 sREREAD DATA,CVC=1,ACK COMMAND 

6598 061526 012704 072030’ 365$: MOV OT26PK3,R4 sSET UP R4 WITH PACKET ADDRESS 

6599 061532 010337 072036' MOV R3,T26SZ sSET UP RECORD SIZE IN PACKET 

6600 061536 010465 000000 MOV R4, TSOBCRS) s ISSUE COMMAND 

6601 061542 004737 016150’ JSR PC ,WAITF sWAIT FOR SSR TO SET 

6602 061546 016501 000002 MOV TSSR(RS), R1 sGET TSSR CONTENTS 

6603 061552 012702 100204 MOV @SSR!SC!BIT2, R2 sSET UP EXPECTED 

6604 061556 020102 CMP R1,R2 sARE THEY EQUAL 

6605 061560 001406 BEQ 370% ;BR, IF OK 

6606 061562 005237 002212’ INC FATFLG ; BUMP COUNT 

6610 061566 ERRHRD ERRNO, T26TRL ,PKTSSR ;TSSR INCORRECT AFTER a DATA 
061566 104456 CSERHRD 
061570 001211 "WORD 649 
061572 074442' . WORD T26TRL 
061574 011746' . WORD PKTSSR 

6611 061576 370$: CKLOOP :LOOP IF SELECTED 

6612 961576 104406 TRAP CSCLP1 

6613 FPAAARAHEEAAREEAAAAEEAEEEEEEEEEESEEEEEASEREEESHEAAEERAEEDEEEREADERES 

6614 3 

anit sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

6617 FPORAESARESEREEESEEEAOEEEEEEEEEEEEEEEEEEEHEAEDEEEEEEEESERESEREREEEEE 

6618 

6619 061600 013701 071730’ MOV T26BFR+6,R1 ;GET MESSAGE BUFFER 

6620 061604 010102 MOV R1,R2 ;SET UP EXPECTED 

6621 061606 052702 010000 BIS $BIT12,R2 ;SET THE RLL BIT IN EXPECTED 

6622 061612 020102 CMP R1,R2 sARE THEY EQUAL 

6623 061614 001406 BEQ 3803 ;BR, IF EQUAL CALL IS WELL) 

6624 061616 005237 002212’ INC FATFLG ;BUMP COUNT 

6628 061622 ERRHRD ERRNO, T26LON,EXPREC THE RLL BIT WAS NOT SET IN xXSTO 
061622 104456 TRAP CSERHRD 
061624 001212 «WORD 650 
061626 074210' . WORD T26LON 
061630 015374' WORD EXPREC 

6629 061632 380$: CKLOOP 
061632 104406 TRAP CsCLP1 

6630 061634 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
061634 L10107: 
061634 104403 ; TRAP CsESUB 

6631 061636 023727 002212' 000017 CHP FATFLG,#15, :IS ERROR COUNT AT 25 

6632 061644 103402 BLO 999$ ;BR, IF LESS THAN 25 

6633 061646 004737 017104’ JSR PC ,CKDROP sTRY TO DROP THE UNIT 

6634 061652 999%: 

6635 

6636 3° 

6637 : 

oe ;TEST 6, SUBTEST 6 

3 

6640 ;VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 

6641 sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 

6642 ;TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 

6643 sSHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 

6644 sRESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 

6645 sCONTAINS THE PROPER NONZERO VALUE (E.G., T 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


6691 
6692 


6695 
6697 


061670 
061674 
061676 
061702 
061704 
061704 
061706 
061710 
061712 
061714 


061722 


061726 
061732 
061734 
061740 
061742 
061742 
061744 
061746 
061750 
061752 
061752 


104402 
004737 
004737 
004737 


011734’ 
013737 


012704 


004737 
103407 
005237 
010001 


104456 
001214 
005046' 
011734’ 


104406 


074620' 
074712' 
074754' 


015674’ 
002212' 


002172’ 
071700' 


010562’ 
002212" 


Kd 
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sOIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 


sSTATES OF OPP (O AND 1). 
5 


BGNSUB 

JSR PC, T26REST 
JSR PC, T26RT2 
JSR PC, T26RTS 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
76.6: 


FASHASESSASHSESEHESEEASEAESSEAEEAEASESESESASEEEREEAEAEAESEEHEEESEEEEEE 


: 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


+ 
FPAAAASSHSSSHASASESESASEEEESEEEAEEESESESEAEEHEEEEEEEEAEEEEAASEEEEEES 


JSR PC, SOF INIT 

BcS 20$ 

INC FATFLG 

MOV RO,R1 

ERROF ERRNO,SFIERR,SFIMSG 
071720’ 20%: MOV UNITN, T260SW 

MOV @T26PACKET ,R4 


TRAP C$BSUB 
3SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
;00 INITIALIZE ON CONTROLLER 
;6R IF INIT WAS OK 
;BUMP COUNT 
;CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 651 
. WORD SFIERR 
WORD SF IMSG 


;SET UP UNIT NUMBER 
;SUBROUTINE NEEDS PACKET ADDRESS 


FSSSHSSHHSSHSSASSESESEHHSEEEEESEESEHSEEESHEEEAESSSEESESEEEHEEEEEHESEDEEE 


: 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


FPSSSESHSSHHSSHASESHESSESESSEESESEHESESESESEHEESHEHEEHSEEHEESESEESKEHESEEEEHEAEEESD 


JSR PC ,WRTCHR 

BcsS 26% 

INC FATFLG 
RO,R1 


MOV 
ERRHRD ERRNO, WRTMSG, SF IMSG 


263: CKLOOP 


; ISSUE WRITE CHARACTERISTICS 
:B8R, IF COMMAND ISSUED OK 
;BUMP COUNT 

;SAVE CONTENTS OF TSSR 

s;WRITE CHARACTERISTISC a+» 


RAP CSERHRD 

«WORD 652 

«WORD WRTMSG 

«WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CscLP1 


FSSSSSSSEHEEHESESSEHEESESEHESEEESESEESSEEHEEHAESHESEHESESSEHEEAESHESEEESEHESEEEESD 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FPSSSEASHESHEEEHASEHASEASESEEESEEESEESESHESEHRESEEEHEHESSESEEHESEEHEESSEEEEE 


SEQ 217 


TSV7 - HARDWARE TESTS 1-8 


TEST 6: 


6698 061754 
6699 061760 
6700 061762 
6701 061766 
6702 061°72 
6703 061774 
6707 062000 


062006 
6708 062010 

062010 
6709 


6719 062024 
6720 062026 
6721 062030 
6725 062034 


6727 062046 
6728 062052 
6729 


6738 062072 
6739 062072 
6740 062076 
6741 062102 
6742 062106 
6743 062112 
6744 062116 
6745 062120 
6746 062122 
6750 062126 

062126 

062130 

062132 


REREADS 


011746' 
104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001216 
073075' 
015374' 


104406 
012703 
013737 


012737 
012704 


010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
001217 
005103’ 


010714' 


000002 
000200 


002212' 


071730" 
000002 


002212' 


000400 
003114’ 


140005 
072030' 


072036' 
000000 
016150' 
000002 
000200 


002212’ 
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072032’ 


072030' 


30$: 


& i 
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ERRHRD 


CKLOOP 


PC ,REWIND 
30$ 


TSSRCRS),R1 

@SSR ,R2 

RO,R4 

FATFLG 

ERRNO, T26RWN,PKTSSR 


sCALL TAPE po ay — 
3BR, IF NO PROBLE 
;GET TSSR 
;SET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 
sBUMP COUNT 
; REWIND NOT ACCEPTED 
TRAP CSERHRD 


J SSHHESEAAAAKSHEEEEEAEREESEEELESEAEEEEREEESEEEEEEEEAEESEASEEAEEEEEEERE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


3 
J FSSSAHAHAEHESESAASESSEEAAEEEASEAEEEEEEESEEEAEEEREAEASEHERERSEEEEEEEE 


40$: 


T26BFR+6,R1 


LG 
ERRNO, T26B0T ,EXPREC 


0256. .R3 
FREE, T26RB 


{ PPAAEAAEOEEEEEEEEEEESEEEREASEEEAAEEEEEEDERERODEEEEEEEDDEOREREEEDEE 
i 
sWRITE DATA,CVC=1,ACK COMMAND 


‘ 
FPSSSEEHEHASHASEHHESHSESEASSESASHEEHEHEEEEESAEEEHEASHEALESEAAAASEHEESEHEEEESREE 


65$: 


MOV 
MOV 


NC 
ERRHRD 


#140005 , T26PK3 
@T26PK3,R4 


R3,T26SZ 
R4, TSOBCRS) 
PC, ,WAITF 
TSSRCRS),R1 
@SSR,R2 


LG 
ERRNO, WRTERR,PKTSSR 


-WORD 653 
» WORD T26RWN 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
3SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sBUMP COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 654 
. WORD T26B0T 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
sRECORD SIZE 
;STARTING WRITE BUFFER ADDRESS 
;sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
: ISSUE COMMAND 
sWAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 
;BR, IF OK 
;BUMP COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 655 
. WORD WRTERR 


SEQ 218 


7 - HARDWARE TESTS 1-8 
T 6: REREADS 


062134 
062136 
062136 
062140 
062144 


011746' 


104406 
012703 
013737 


012737 


011746' 
104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001221 
074272' 
015374' 


104406 
013701 
012702 
020102 
001406 
005237 


104456 
001222 


001000 
003114’ 


161001 
072030’ 
072036' 


000000 
016150’ 
000002 
100204 


002212' 


071730’ 
040000 


002212' 


071726' 
000400 


002212’ 


M1 
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072032' 


072030' 


75$: 


CKLOOP 


MOV 
MOV 


#512. ,R3 
FREE, T26RB 


. WORD 
sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


FPSAHASRASASASASESESESAEESESASESESEEEEEAEESERESESESESEAEAEOEESEEESEEEED 


; 
sREREAD PREVIOUS,ACK,CvC=1,0PP=1 
; 


FARRAH SSASESEAEAHEEHSHEEEEHEEESEEAEEEEEEEAAEDEEEAEEEEEOEASEESESEEEE 


165$: 


170$: 


CKLOOP 


#161001, T26PK3 
@T26PK3 ,R4 
R3,T26SZ 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
yr iets 


170$ 


FATFLG 
ERRHRD ERRNO, T26TRL,PKTSSR 


PKTSSR 
CsCLP1L 


sREREAD PREVIOUS, ACK ,CvC=1,0PP=1 


;SET UP R4 WITH PACKET ADDRESS 
3SET UP RECORD SIZE IN PACKET 
; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


:BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP 
- WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


FSSEEAHEAAASESSASSAASESESASEHASEEEEHESEESESESEHSESESEASHESEEEASEESEHEAEEESEE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


° 
FSSSSAASEHESASHESEESSESESEEHEHSESEAEHOHEEEEEHEEEEAEEEEEESAEEAESEEEEEESEEEEDE 


180$: 


ERRHRD 


T26BFR+6,R1 
1 


ERRNO, T26LOP ,EXPREC 


T26BFR+4,R1 
#256. ,R2 


LG 
ERRNO, T26PBP ,EXPREC 


;GET MESSAGE BUFFER 

;SET UP EXPECTED 

;SET THE RLS BIT IN EXPECTED 
;ARE THEY EQUAL 

;BR, IF EQUAL (CALL IS WELL) 
;BUMP COUNT 


;THE RLL BIT WAS NOT - xSTo 


CSERHRD 
656 


T26TRL 
PKTSSR 


CsCLP1 


AP CSERHRD 

. WORD 657 
. WORD T26L0P 
-WORD EXPREC 
TRAP CSsCLP1 

;PICK UP RESIDUAL BYTE COUNTER 

;THIS SHOULD BE THE DIFFERENCE 

3IS THE DIFFERENCE CORRECT 

;B8R, IF CORRECT 

;BUMP COUNT 

smeBPCR NOT CORRECT 
TRAP CSERHRD 
.WORD 658 


SEQ 219 


7 - HARDWARE TESTS 1-8 
‘T 6: REREADS 


062312 
062314 
062316 
062316 
062320 
062324 


062412 
062416 
062420 
062424 
062426 
062430 
062434 
062434 
062436 
062440 
062442 
062444 
062444 
062446 
062452 
062456 
062460 
062464 
062464 
962466 


074354’ 
015374’ 


104406 


012703 
013737 


012737 


011746' 
104406 


013701 


015374' 


104406 
013701 
012702 
020102 
001405 


104456 
001224 


190$: 


001000 
003114' 072032’ 


CKLOOP 


MOV 
MOV 


Ni 
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#512. ,R3 
FREE, T26RB 


«WORD T26PBP 
«WORD EXPREC 
sLOOP IF SELECTED 


TRAP CsCLP1 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


J FSSAAAAAHSAHEAAAASEEESEHEEESEAREEESSESEAEEEESEEEEEESEEEEEEEEEEEEEEEEEE 


; 
sREREAD PREVIOUS,ACK,CVC=1,0PP=0 


. 
FAAAAHEAHAAEAEEESEEEHEAEEESEEESEEEEEEEEEEEAREAESEEEEEEE*ESEEEEEEEEEEDEE 


141001 072030’ 
072030' 
072036' 
000000 


016150' 
000002 
100204 


002212' 


2708: 


INC 
ERRHRD 


CKLOOP 


#141001, T26PK3 
#T26PK3,R4 


TSSRCRS),R1 
@SSR!ISC!BIT2,R2 


LG 
ERRNO, T26TRL ,.PKTSSR 


sREREAD PREVIOUS,ACK ,CvC=1,0PP=0 
;SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 

; ISSUE COMMAND 

s;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


;BR, IF OK 

sBUMP COUNT 

:TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORT 659 


-WORD T26TRL 
-WORD PKTSSR 


TRAP CsCLP1 


;LOOP IF SELECTED 


J SSAHEAAAAARHESESESESASEEAEEEEESESSESHEEEEHAEERESEHAEEESESESRAEEEEEEEE 


;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


. 
F THSSAAESESEHESESEEESESESEEESESESESEESEEEACHAEASEESESLSEEAEEEEEEEEEEEEEEE 


071730' 
040000 


002212' 


280$: 


071726' 
000400 


BEQ 
ERRHRD 


R1,R2 


@BIT14,R2 
R2 


LG 
ERRNO, T26LOP ,EXPREC 


T26BFR+4,R1 
#256. ,R2 
R1,R2 


290% 
ERRNO, T26PBP ,EXPREC 


;GET MESSAGE BUFFER 

;SET UP EXPECTED 

;SET THE RLS BIT IN EXPECTED 
;ARE THEY EQUAL 

;BR, IF EQUAL CALL IS WELL) 
;BUMP COUNT 

;THE RLL BIT WAS NOT ot ere 


CSERHRD 
-WORD 660 
«WORD T26LOP 
-WORD EXPREC 


TRAP CsCLP1 
sPICK UP RESIDUAL BYTE COUNTER 
+ THIS SHOULD BE THE DIFFERENCE 
:IS THE DIFFERENCE CORRECT 
:BR, IF CORRECT 
sRBPCR NOT CORRECT 
TRAP CSERHRD 
-WORD 660 


SEQ 220 


V7 - 
ST 6: RERE 


074354’ 
015374’ 


104406 


104402 
004737 
004737 
004737 


011734: 
013737 


012704 


002212’ 
017104' 


074620' 
074712’ 
074754' 


015674' 
002212’ 


002172' 
071700' 


Bo 
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. WORD T26P6P 
«WORD EXPREC 
2908: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
ENDSUB $>?>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10110: 
TRAP CSESUB 
000017 CMP FATFLG,@15. sIS ERROR COUNT AT 25 
BLO 999% s6R, IF LESS THAN 25 
JSR PC ,.CKOROP sTRY TO DROP THE UNIT 
999%: 
3°? 
3 
sTEST 6, SUBTEST 7 
3 
t 
sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0 
sAND SWB°0 OPERATES PROPERLY. THE TAPE IS FIRST 
;REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
}RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE 
:IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 
s TAPE IS SPACED FORWARD ONE RECORD AND A REREAD 
sNEXT COMMAND ISSUED. RESULTS (STATUS, DATA, 
sETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 
sNEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED 
sRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 
4 ; 
a 
BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST »>>>>»>>>>»>>> 
16.7: 
TRAP Cs6SuB8 
JSR PC, T26REST sSET COMMAND PACKET 
JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
SSSSSSSEHSHSSHSAHHSHHESHESSHHESHSHASEHEHASHEEESEHESEEEEHEEHEHESEEHEOEAEEEEE 
i 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
- isidiietdeieiaiedbcintieaaeseiteteieaich te ean adiarhnaedieadieeiaibineiaitiniiat 
JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 
BCS 20% 368R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 661 
WORD SFIERR 
. WORD SF IMSG 
071720' 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
MOV OT26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


SEQ 221 


FEST C*RPRERBSTESTS 1 


6954 


062654 
062660 


062662 
062666 
062670 
062672 
062676 
062676 
062700 
062702 
062704 
062 706 


004737 010562' 
103407 
005237 002212’ 
010001 


004737 010714' 
103413 

016501 000002 
012702 000200 
010004 

005237 002212’ 


104456 
001227 
C73364' 
011746’ 


104406 


013701 071730' 
010102 
052702 000002 
020102 
001406 
005237 002212’ 


104456 
001230 
073075' 
0153574' 


Ce 
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PUP rrrrrrrrrrrrrriiiiiririiititiiiititiiiyy) 
3 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 

; 

J POOR SOAEESESEDESEEEEEDEEDEEEEEEEDEREDOREREDEEEEEOOREEEDOD DEES 


JSR ee s ISSUE WRITE CHARACTERISTICS 


Bcs s6R, IF COMMAND ISSUED OK 
INC FATFLG s8UMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRIMSG, SF IMSG sWRITE CHARACTERISTISC iy 
- WORD 
. WORD 
. WORD 
268: CKLOOP sLOOP IF SELECTED 
TRAP 


FS PSSHHASHASASHHSSHEHESHSSESEHAHEEEEHSESESEEOSEEESHEHEEHEEHSEA~SEEHEHEEEEOEDEED 


3 
s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


é 
FPSHHANHSASHSSSSESAHASHSEAHSASHHEHSEEEHEHHESESEHESESHOEAEEEHEHEHEHEOAEE 


JSR PC ,REWINO sCALL TAPE REWIND COMMAND 


6csS 30% ;BR, IF NO PROBLEM 

MOV TSSRC(RS),R1 sGET TSSR 

MOV @SSR,R2 sSET UP EXPECTED TSSR 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED — 
- WORD 
«WORD 
- WORD 

308: CKLOOP sLOOP IF SELECTED 

TRAP 


FSSHSHAHHSHSSHAESSSHASSASESESHEEHEEHHHHOHHEESESESSEESEEEHEHEAEEEOEHEEEHOKEOSD 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


3 
FFSSSHAHSHSSHHSASHSSSESHESEHESHESESSSHEEHESEHEHASSHSSHEHESESSEEEHEAEHEHEOEEEODED 


MOV T26BFR+6,R1 sPTCK UP XxXSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS &BIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 

BEQ 40% sBR, IF EQUAL (OK) 


INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER — 


40%: CKLOOP sLOOP IF SELECTED 


CSERHRD 
662 


WR TMSG 
SF IMSG 


CsCLP1 


CSERHRD 
663 


T26RWN 
PKTSSR 


CsCcLP1 


CSERHRD 
664 
T26B80T 
EXPREC 


SEQ 222 


TEST “et *RERERBs"ESTS 1-8 


062 706 
062710 
062714 


104406 
012703 
013737 


012737 
012704 


011746' 
104406 
005723 
022703 
001346 


104406 


011746’ 
104406 


000400 
003114' 


140005 
072030' 


017324' 
072036’ 
000000 
016150’ 
000002 
000200 


002212' 


000414 


010714' 


000002 
000200 


002212’ 


De 
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072032' 


072030' 


MOV 
MOV 


256. »R3 
FREE , T26RB 


FPSSAHASHAAHALESESEAHSERESEEEEAEEEADEHEHEADEHEEHESEAEHEEEEHREREEEDERES 


}WRITE DATA,CVC#1,ACK COMMAND 


3 
FSSSHASEHSEAAESEAHEASESESESHSEHEEEEEEEEEEEAEOEEEEEEAEEEESEEOEEDEOEEEE 


65%: 


75$: 


80$: 
1208: 


#140005, T26PK3 
OT26PK3,R4 


R3,RO 
PC,FILLMEM 
R3 

@SSR ,R2 


FATFLG 
ERRNO ,WRTERR,PKTSSR 


TRAP CSCLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC*1,ACK COMMAND 
3SET UP R4 WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
3SET UP EXPECTED 
sARE THEY EQUAL 
3sBR, IF OK 
sBUMP COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
~ WORD 665 
. WORD WRTERR 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
;BUMP RECORD SIZE 
sEND OF RECORD YET 
3;B8R, IF MORE RECORDS TO WRITE 
;LOOP IF SELECTED 
TRAP CSCLPl 


FPSSAOSHASHSESSESOSOSESHSEHEEEEHESHESHEEAOHHEHHEHESEHEEEEAEESASAREROEROEEEEA 


H 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
FS FSSSHAHSEHHHEHAAEHEEEESOAHEEHHEAEASEEEAOSESOEEEHESEEEKEEHAREHEHEEHHEOEE 


INC 
ERRHRD 


130$;: CKLOOP 


PC ,REWIND 

130% 

TSSRCRS),R1 

@SSR,R2 

RO,R4 

FATFLG 

ERRNO, T26RWN,PKTSSR 


sCALL TAPE REWIND COMMAND 
;8R, IF NO PROBLEM 
3GET TSSR 
3SET UP EXPECTED TSSR 
sPACKET ADORESS SET UP 
sBUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 


-WORD 666 

-WORD T26RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CscL_Pl 


SEQ 223 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


063222 


013701 


015374’ 


104406 
012737 
000420 


012703 


015374' 


104406 
013703 
013737 


012737 
012704 
010337 
010465 
004737 


071730' 
000002 


002212' 


000400 


000001 
010366' 


000002 
000200 


002212' 


072062’ 
003114' 


141401 
072030' 
072036’ 


000000 
016150’ 


re 


MACRO M1113 O1-FEB-84 17:54 SEQ 224 


POUT rrrrrrrrrrrrrrrrrrrrrrrrrrririiirititiriiitiiiiity) 
s 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


° 
FAAAAAAHAAAAAASESEEHSEEAEEESSOSHEAEEHEEEEEEEESEEEHASEEEEESEEEDOEREEEE 


MOV T26BFR+6,R1 sPICK UP xSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS oBIT1, R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2] ;00ES EXP = REC'D 
BEQ 140$ 3B8R, IF EQUAL (OK) 
INC FATFLG 3BUMP COUNT 
ERRHRD ERRNO, TO6B0T,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 667 
. WORD T26B0T 
-WORD EXPREC 
1403: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
072062’ MOV 0256. , T26RSZ sSTORE START RECORD SIZE 
BR 150$ 3SKIP THE SAPCE THIS TIME 
fF APORAREAEAREALEDARADEASADROASEADEEEERAREREEEDEEDEHEEEREDESEOREEEEEEE 
. 
; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
:BIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 
; 
PPYTITITITITITIITITIVIVITITITITITTTTITITITITIVITITTTTTITITTTT TTT tty 
145$: MOV #1,R3 sSPACE ONE RECORD PARAMETER 
JSR PC, SPACE sCALL SPACE ROUTINE 
ecs 150$ 368R, IF NO PROBLEM WITH SPACE COMMAND 
MOV TSSRCRS),R1 ;GET TSSR 
MOV @SSR,R2 ;SET UP EXPECTED TSSR 
MOV RO,R4 sPACKET ADDRESS SET UP 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26SC,EXPREC POSITION (SPACE RECORDS) FAILED 
oo. CSERHRD 


668 
«WORD T26SC 
-WORD EXPREC 
150%: CKLOOP 


TRAP CsCLP1 
MOV T26RSZ,R3 sRECORD SIZE 
072032’ MOV FREE, T26RB sSTARTING READ BUFFER ADDRESS 
Perr rrririrririiiiiiriririiiiiiiiiiiittittittitittttTy 


3 
sREREREAD DATA,CVC#1,ACK COMMAND 


6 
8 OOO 66646 O04646664646066686666600660666666060446606060666006660606060600004604680066 


072030' MOV #141401, T26PK3 sREREREAD DATA,CVC=1,ACK COMMAND 
165$; MOV @T26PK3,R4 3SET UP R4& WITH PACKET ADDRESS 
MOV R3, T2682 sSET UP RECORD SIZE IN PACKET 
MOV R4,TSDOBCRS) s ISSUE COMMAND 


JSR PC ,WALTF sWAIT FOR SSR TO SET 


ft 


Fe 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 01-FEB-84 17:54 
TEST 6: REREADS 
7059 063226 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
7060 063232 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
7061 063236 020102 CMP R1,R2 sARE THEY EQUAL 
7062 063240 001406 BEQ 170$ sBR, IF OK 
7063 063242 005237 002212' INC FATFLG sBUMP COUNT 
7067 063246 ERRHRD ERRNO, T26WOC »PKTSSR sTSSR INCORRECT AFTER REREAD DATA 
063246 104456 TRAP CSERHRD 
063250 001235 WORD 669 
063252 073720: «WORD T26WOC 
063254 011746' - WORD PKTSSR 
7068 063256 170$; CKLOOP sLOOP IF SELECTED 
063256 104406 TRAP CSCLP1 
7069 063260 013702 003114' MOV FREE ,R2 sCURRENT BUFFER ADDRESS TO Ro 
7070 063264 010304 MOV oR sCURRENT RECORD SIZE 
7071 063266 162704 000400 SUB #256. ,R4 sFIRST LOCATION IN BUFFER 
7072 063272 060204 173$: ADD R2,R4 sSET UP POINTER 
7073 063274 021403 CMP C(R4),R3 sCHECK DATA READ (R3=DATA ALSO) 
7074 063276 001410 BEQ 180$ sBR, IF ALL IS LL 
7075 063300 011401 MOV (R4),R1 sRECO DAT 
7076 063302 010302 MOV R3,R2 sEXPECTED DATA 
7077 063304 005237 002212' INC FATFLG sBUMP COUNT 
7081 063310 ERRHRD ERRNO, T26DTA,EXPREC sDATA READ NOT = WRITTEN 
063310 104456 TRAP CSERHRD 
063312 001236 «WORD 670 
063314 073142: .- WORD T26DTA 
063316 015374’ WORD EXPREC 
7082 063320 180$;: CKLOOP sLOOP IF SELECTED 
063320 104406 X TRAP CSCLP1 
7083 063322 005724 TST CR4)> sBUMP TO NEXT LOCATION 
7084 063324 160204 SUB R2,R4 sCORRECT RECORDS SIZE VALUE 
7085 063326 020403 CMP R4,R3 sEND OF RECORD YET 
7086 063330 001360 , BNE 173$ BR, IF NOT AT END OF RECORD 
7087 063332 005723 TST CR3)> sBUMP RECORD SIZE 
7088 063334 010337 072062: MOV R3,T26RSZ sSTORE PRESENT RECORD SIZE 
7089 063340 022703 000410 CMP 9264. ,R3 sENO OF RECORD YET ° 
7090 063344 001267 BNE 145$ sBR, IF MORE RECORDS TO READ 
7091 063346 190$: CKLOOP sLOOP IF SELECTED 
063346 104406 TRAP CSCLPL 
7092 063350 ENDSUB $>>>>>>>>>>>> END SUBTEST >>>>s 555550 
063350 L10111;: 
063350 104403 TRAP CsESuB 
7093 063352 023727 002210: 000017 CMP FATFLG, 015. sIS ERROR COUNT AT 25 
7094 063360 103402 BLO 999% sB8R, IF LESS THAN 25 rs 2 
7095 063362 004737 017104' JSR PC,CKDROP sTRY TO DROP THE UNIT 
7096 063366 999%: 
7097 
7098 3° 
7099 3 
cioe TEST 6, SUBTEST 8 
3 
7102 sVERIFIES THAT THE REREAD NEXT -COMMAND WITH OPP =0 
7103 sANOD SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
7104 sTHE SAME AS THAT USED IN SUBTEST 1, BUT IT Is 
7105 sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
de sSWAPPED BYTES. 
Hy 


SEQ 225 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


7109 
7110 
7111 


7112 
7113 
7114 
7115 
7116 


063366 
063366 
063366 
063370 
063374 
063400 


063470 
063474 
063476 
063502 
063506 


104402 
004737 
004737 
004737 


013737 
012704 


004737 
103407 
005237 
010001 


104456 
001240 
005046‘ 
011734' 


104406 


004737 
103413 
016501 
012702 
010004 


074620' 
074712' 
074754' 


015674' 
002212' 


002172' 
071700' 


010562' 
002212' 


010714' 


000002 
000200 


Ge 
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071720' 


BGNSUB 


JSR 
JSR 
JSR 


PC, T26REST 
PC, T26RT2 
PC, T26RTS 


$>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
76.8: 


TRAP C$68SUB 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


FFAS AHAEAEEHEEASAAEAAEEEESESALEAEREAEOAEASESASEAREREEREREREEEEEESD 


; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
§ PSPAAAEAERHEAEEEAEEAEASEEEEEASAEEEEACESAEREDEEEAEEEEEREEEEEEDEDEDEE 


20%: MOV 
MOV 


PC, SOF INIT 
20s 


no nat 
RO, 


UNITN, T260SW 


OT26PACKET,R4 


Ri. 
ERRNO, SFIERR, SF IMSG 


sD00 INITIALIZE ON CONTROLLER 
38R IF INIT WAS OK 
sBUMP COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 


"WORD SFIERR 
"WORD SFIMSG 
;SET UP UNIT NUMBER 


; SUBROUTINE NEEDS PACKET ADDRESS 


F SHSASASEAEAEAEESEASAAESEASAHEAEASEEEEEAESAREEEAREAREEEREREREREREDE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


J FPEASAASHERSSAASSHEASEAREEEESEAEEAASELEAEEEEEAERESARKOAAASERERERERE 


JSR 
BCS 
INC 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


26%: CKLOOP 


PC,WRTICHR 
26% 
FATFLG 


sISSUE WRITE CHARACTERISTICS 
3B8R, IF COMMAND ISSUED OK 
;BUMP COUNT 

; SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC ren.ce 


CSERHRD 
WORD 672 
WORD WRTMSG 
WORD SFIMSG 


sLOOP IF SELECTED 
TRAP Csc.P1 


F PSSHEEEEEHESASEAEEEEAEASEAAESCHADEREEEEDEEEOEEEEDEEKEDREEDEADEEDEDOEEERE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


SSPE SAEEESESESSEEAOEAEEESESEEEAEOEEADLEHEEOOEHAEEEOEEEEREEDEDEEEOEEDRE 


PC ,REWIND 
30% 
noid cen 


RO,R4 


sCALL_ TAPE REWIND COMMAND 
3BR, IF NO PROBLEM 

;GET TSSR 

;SET UP EXPECTED TSSR 
sPACKET ADDRESS SET UP 


mw 
we 


7211 


005237 
104456 
001241 
073364' 
011746' 


104406 


013701 


015374’ 
104406 


012703 
013737 


012737 
012704 


011746’ 
104406 


002212' 


071730' 
000002 


002212' 


000400 
003114’ 


150005 
072030' 


017324' 
072036' 
000000 


He 
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072032' 


072030' 


FATFL 


INC 
ERRHRD ERRNO’ T26RWN,PKTSSR 


308: CKLOOP 


sBUMP COUNT 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

-WORD 673 

«WORD T26RWN 

WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1L 


FPMAAAAASAHKASAHAASHRESEAALEEESALEAESEERAAEEOEAESEEAEAREAACEEEEEEEREREEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
FPFERAHAAEEAAAHEEEEEDEEAEEEAAAEEESEREBESHEAEAEEEAEEEEESEEEAOERAEEREDESL 


MOV T26BFR+6,R1 
MOV R1,R2 

BIS oBIT1,R2 
CMP R1,R2 

BEQ 40$ 


INC FATFLG 
ERRHRD ERRNO, T26B0T ,EXPREC 


40$: CKLOOP 
MOV #256. .R3 
MOV FREE , T26RB 


sPICK UP XSTO 
sSET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
;BR, IF EQUAL (OK) 
sBUMP COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
674 


. WORD 

- WORD i26B0T 

-WORD EXPREC 
;LOOP IF SELECTED 

TRAP CsCLP1 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


J SASAEHASAAEHESEEASASEHEASASCESESASEAEAEEEEEEEHEEEEEAEEEAEEOEEEEEDEES 


; 
sWRITE DATA,CVC#1,ACK,SWB COMMAND 


3 
F FAASASSSEASADSSESHSAASAEADEEESEEEEEEEAEEAAEEEEEEEEEEHESREKOEREEAEZEE 


MOV #150005, T26PK3 

MOV @T26PK3,R4 
65$: 

MOV R3,RO 

JSR PC, FILLMEM 

MOV R3,T26SZ 

MOV R4, Vey he 

JSR PC.WA ITF 

MOV TSSRCRS),R1 

MOV #SSR,R2 

CMP R1,R2 

BEQ 75$ 

INC FATFLG 

ERRHRD ERRNO,WRTERR,PKTSSR 
75$: CKLOOP 


sWRITE DATA,CVC=1,ACK,SWB COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


;6R, IF OK 
; BUMP COUNT 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
. WORD 675 
. WORD WRTERR 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLPl 


SEQ 227 


Te 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 SEQ 228 
TEST 6: REREADS 
7212 063662 005723 TST (R3)+ sBUMP RECORD SIZE 
7213 063664 022703 000414 CMP 268. ,R3 sEND OF RECORD YET 
7214 063670 001346 BNE 65$ ;8R, IF MORE RECORDS TO WRITE 
7215 063672 80$: CKLOOP sLOOP IF SELECTED 
063672 104406 4 TRAP CSCLP1 
te 063674 120$; 
7218 fF PAAAAHEREREEEAEEEEEEEAEAEEESASAEEARESERAAARARAEAREREREREREREDREREE 
7219 Hy 
tat : ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
7222 ne 
7223 
7224 063674 004737 010714' JSR PC ,.REWINO ;CALL TAPE REWIND COMMAND 
7225 063700 103413 bcs 130$ ;68R, IF NO PROBLEM 
7226 063702 016501 000002 MOV TSSRCRS),R1 ;GET TSSR 
7227 063706 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED TSSR 
7228 063712 010004 MOV RO,R4 sPACKET ADORESS SET UP 
7229 063714 005237 002212’ INC FATFLG ;BUMP COUNT 
7233 063720 ERRHRD ERRNO, T26RWN,!’KTSSR i REWIND NOT ACCEPTED 
063720 104456 TRAP CSERHRD 
063722 001244 -WORD 676 
063724 073364' »WORC T26RWN 
063726 011746' : .- WORD PKTSSR 
7234 063730 130$: CKLOOP ; ;LOOP IF SELECTED 
7235 063730 104406 > TRAP CSCLP1 
tes /sunenabachnnansneeennbebebtieneennneenednensnnenaenenebeiaaenane 
237 ; 
pean sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
toe = ipiaiahaibtieienitadecieanthieithdblgmiinenine inticnaie iain aieidean deine hintennibinennibiead 
41 
7242 063732 013701 071730’ MOV T26BFR+6,R1 sPICK UP xSTO 
7243 063736 010102 MOV R1,R2 ;SET UP EXPECTED 
7244 063740 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
7245 063744 020102 CMP R1,R2 ;D0ES EXP = REC'D 
7246 063746 001406 BEQ 140% ;BR, IF EQUAL (OK) 
7247 063750 005237 002212' INC FATFLG ; BUMP COUNT 
7251 063754 ERRHRD ERRNO, T26B0T ,EXPREC i TAPE NUT AT BOT AFTER —— 
063754 104456 C$ERHRD 
063756 001245 TWORD 677 
063760 073075’ .-WORD T26B0T 
063762 015374’ » WORD EXPREC 
7252 063764 140$: CKLOOP ;LOOP IF SELECTED 
063764 104406 TRAP CSCLP1 
7253 063766 012737 000400 072062’ MOV #256. ,T26RSZ sSTART RECORD SIZE 
Sa 063774 000420 BR 150$ :SKIP SAPCE THIS TIME 
oat SPAAARHEEEEEEEESAEEEEAAEESEDEEEEAEADHEAEESAREEHEARERERAREDEDREDRADEES 
H 
7258 ;ISSUVE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
coos ;BIT 15 SETS DIRECTION - O=FORWARD 1*REVERSE 
voes OE Tn EC EN a aT TR ee 
262 


7263 063776 012703 000001 145$: MOV #1,R3 sSPACE ONE RECORD PARAMETER 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


015374! 
104406 


013703 
013737 


012737 


015374’ 


104406 
005724 
160204 


010366' 


000002 
000200 


002212' 


072062’ 
003114’ 


151401 
072030’ 
072036' 
000000 
016150’ 
000002 
000200 


002212' 


003114’ 
000400 


002212’ 


MACRO M1113 


072032’ 


072030' 


150%: CKLOOP 


Je 


01-FEB-84 17:54 


th » SPACE 
TSSRCRS), R1 
»R2 
RO, Ra 
FATFLG 
ERRNO, T26SC ,EXPREC 


T26RSZ,R3 
FREE , T26RB 


sCALL_ SPACE ROUTINE 

sBR, IF NO PROBLEM WITH SPACE COMMAND 
sGET TSSR 

sSET UP EXPECTED TSSR 

sPACKET ADDRESS SET UP 


sBUMP COUNT 
sPOSITION (SPACE RECORDS) FAILED 
TRAP — 


. WORD 
«WORD T26SC 
«WORD EXPREC 


TRAP Cs#CLP1 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


jARAREREREEAREREDADAOEAEAEDEREREEAAREREEEEEEEEDEDEDEEEDREREREDEDEDE 
; 
sREREAD DATA,ACK,CVC#1,SWB COMMAND 


3 
J PAAASEAESASASESEAEALEAAAAEARELESESEEEAEAAAEAEDEAASEEAESEEAEEAEEEEE 


165$: MOV 


170$; CKLOOP 


180$; CKLOOP 


TST 
SUB 


#151401, T26PK3 sREREAD DATA, ACK,CVC=1,SW8 COMMAND 
@T26PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
R3,T26SZ sSET UP RECORD SIZE IN PACKET 
R4, TSOBCRS) s ISSUE COMMAND 
PC ,WAITF sWAIT FOR SSR TO SET 
TSSRC(RS),R1 sGET TSSR CONTENTS 
@SSR ,R2 ;SET UP EXPECTED 
R1,R2 sARE THEY EQUAL 
170$ ;BR, IF OK 
FATFLG sBUMP COUNT 
ERRNO, T26WOC ,PKTSSR ;TSSR INCORRECT AFTER ——s DATA 
TRAP CSERHRD 
WORD 679 
WORD T26WDC 
WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 
FREE ,R2 sCURRENT BUFFER ADDRESS TO R2 
R3,R4 s;CURRENT RECORD SIZE 
#256. ,R4 sFIRST LOCATION IN BUFFER 
R2,R4 ;SET UP POINTER 
(R4),R3 sCHECK DATA READ (R3=DATA ALSO) 
180$ 3;BR, IF ALL IS WELL 
(R4),R1 sRECD DATA 
eR2 sEXPECTED DATA 
FATFLG sBUMP COUNT 
ERRNO, T26DTA, EXPREC sDATA READ NOT = WRITTEN 
é' TRAP CSERHRD 
-WORD 680 
-WORD T26DTA 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 
CR4)+ sBUMP TO NEXT LOCATION 
R2,R4 sCORRECT RECORDS SIZE VALVE 


SEQ 229 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


7315 
7316 


064240 
064240 
064240 
064242 
064246 
064252 
064256 


072062’ 
000410 


002212’ 
017104' 


074620' 
072056' 
074712' 
074754' 


Ke 
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000017 


CMP R4,R3 sEND OF RECORD YET 
BNE 173$ 3BR, IF NOT AT END OF RECORD 
TST CR3)>+ sBUMP RECORD SIZE 
MOV R3,T26RSZ sSTORE RECORD SIZE 
CMP 4264. ,R3 sEND OF RECORD YET 
BNE 145$ ;B8R, IF MORE RECORDS TO WRITE 
190$;: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10112: 
TRAP CsESuB 
CMP FATFLG,4@15. ;IS ERROR COUNT AT 25 
BLO 999$ ;BR, IF LESS THAN 25 
JSR PC ,CKDROP :TRY TO OROP THE UNIT 
9995: 
3¢ 
3 
sTEST 6, SUBTEST 9 
a 
;sVERIFIES THAT THE REREAD NEXT ‘OMMANOD WITH OPP=1 
;C(READ FORWARD, SPACE REVERSE) AND SWB=0 OPERATES 
sPROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
sWITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND 
sDATA CONTENT; THE FIRST FOUR RYTES OF EACH RECORD 
ee ITS RECORD NUMBER CINDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
sTEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 
i. THE REREAD NEXT COMMAND WITH OPP=1 IS ISSUED 
: AND THE RESULTS CHECKED 
se. A READ FORWARD COMMAND IS THEN ISSUED AND THE 
3 DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
; POSITIONED PROPERLY AFTER THE REREAD NEXT 
3 COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
5 POSITIONED AT THE START OF THE TEST RECORD). THE 
F READ FORWARD COMMAND LEAVES THE TAPE POSITIONED 
; PROPERLY AT THE START OF THE NEXT TEST RECORD. 
3 
;THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET 
;TO THE LENGTH OF THE EXPECTED RECORD, SO NO 
sEXCEPTIONAL CONDITIONS SHOULD OCCUR. 
é 
H 
3 
H 
i 
BGNSUB ;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.9: 
TRAP CsBSUB 


JSR PC, T26REST 3SET COMMAND PACKET 

CLR , T26CNT sCLEAR TAPE RECORD COUNTER 
JSR PC, T26RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


SEQ 230 


TSvV7 - e's TESTS 1-8 
READS 


TEST 6: 


7367 
7368 
7369 
7370 


004737 
103407 
005237 
010001 
104455 
001251 
003642’ 
011734' 
013737 


012704 


011746’ 
104406 


Le 
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J SPOHAHAEHAREHSEESEEEAEHESHAEEEEEESADESEEEEASERERAREEEEEEAEEEAEREDRSE 


; 
s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; . 
FPSSAAAHAHHAEAAASESESEAESEAEAREEEAEEEEEEREEESEEERAREEESESEEEBEEEEEE 


0156 74° 
002212’ 


002172' 071720' 20%: 
071700° 


" JSR PC, SOF INIT 
20% 


Inc FATFLG 
RO,R1 
ERROF ERRNO, SFIERR,SFIMSG 


MOV UNITN, T260SW 
MOV @T26PACKET ,R4 


s00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
sBUMP COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 


;SET UP UNIT NUMBER 
;SUBROUTINE NEEDS PACKET ADDRESS 


J SSSHHASARASESESSAAEESEASEASEESHASEESESARSEEEAEHESESESACHEEEEEEEEEEEEEESD 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


; 
J FSSSHASEAHSSEESSHASEEEEESEESEEEEHEAEEARESESEAERESEAESEEEKREAEEODESEAEE 


010562’ 
002212’ 


26%: 


JSR PC ,WRTICHR 
BcS 26% 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


CKLOOP 


+ eB WRITE CHARACTERISTICS 
:BR, IF COMMAND ISSUED OK 
; BUMP COUNT 


; SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 682 
-WORD WRTMSG 
-WORD SFIMSG 


TRAP CsCLP1 


;LOOP IF SELECTED 


FSASHSAASEHSSSASHSSASEESASEASESESESEREEAESEEEAEAEEHASHAEEEAEEAEEEEEEE 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FFSSHAHEEESSSAASEAESESSEEAAASHHELESESEHEEASEHESEEEEEEEEEEKEDREEEEEEDEESE 


010714' 


000002 
000200 


002212' 


30$: 


JSR ast — 
BCS 

MOV TSERCRS), R1 
MOV @SSR,Re 
MOV RO,R4 

INC FATFLG 


ERRHRD ERRNO, T26RWN,PKTSSR 


CKLOOP 


sCALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

;GET TSSR 

;SET UP EXPECTED TSSR 

sPACKET ADDRESS SET UP 

sBUMP COUNT 

; REWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 683 
-WORD T26RWN 
-WORD PKTSSR 


TRAP CSsCLP1L 


;LOOP IF SELECTED 


SEQ 231 


7419 
7420 
7421 
7422 
7423 


013701 


015374' 


104406 
012703 
013737 


012737 
012704 


005103' 
011746' 


104405 
005723 
022703 
001401 
000742 


005037 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


071730' 
000002 


002212' 


000400 
003114' 


140005 
072030' 


072036' 
072056' 


002212' 


000414 


072056' 


Me 
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J AARARAAAREAAAAEEAAAAEAERAREAAARAREEEEEEEEEEEEEEEAEREREREEEEDEAE EEE 
; 

s;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

; 


LRA RRAEORRERE EERE RERE ARERR EERE AHA ARRERREAEAKRRAREAEEEAERE RAH ERE 


40$: CKLOOP 


072032' 


T26BFR+6,R1 


FATFLG 
ERRNO, T26B0T ,EXPREC 


#256. ,R3 
FREE, T26RB 


sPICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
;DOES EXP = REC'D 

;BR, IF EQUAL (OK) 


;BUMP COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
.WORD 684 
.WORD T26B0T 
. WORD EXPREC 
;LOOP IF SELECTED 
TRAP CS$CLP1 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


J SSSASAAAASASASAASARERAAEEEAAAAEEABREAAAEEEEEAEEESASEERERESREESESAREE 


5 
sWRITE DATA,CVC=1,ACK COMMAND 


‘ 
{PASAAARSSAAAASHASASSASSSSSEASESAASAREAHSASHESEAEASAEAAAESEEEAAASEAEEESD 


072030' 
65$: 


MOV 
MOV 


116416 
072056' 


75%: CKLOOP 


120%: 
CLR 


#140005 , T26PK3 
@T26PK3,R4 


R3,T26SZ 


PC ,WAITF 
@SSR ,R2 


G 
ERRNO, WRTERR,PKTSSR 


CR3)+ 
#268. ,R3 
120$ 

65$ 


T26CNT 


sWRITE DATA,CVC=1,ACK COMMAND 
;SET UP R4 WITH PACKET ADDRESS 


;SET UP RECORD SIZE IN PACKET 
sMOVE TAPE RECORD NUMBER TO BUFFER 
;NUMBER READY FOR NEXT RECORD 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

3SET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
. WORD 685 
.WORD WRTERR 
. WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSsCLP1 


sBUMP THE RECORD SIZE 

sMAXIMUM SIZE YET 

3BR, IF AT END OF WRITE SEQUENCE 
sWRITE MORE RECORDS 


3SET RECORD COUNTER BACK TO ZERO 


{PSS EAEAAEHEAEAAREESAASEEAEAESAEESAESESEAEAEDESEEEASEEEEDESRESEHEEDES 


SEQ 232 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: 


7472 
7473 
7474 
7475 
7476 


REREADS 


004737 010714' 
103411 
016501 000002 
010004 
005237 002212’ 


104456 
001256 
073364’ 
011746' 


104406 


013701 071730' 
010102 
052702 000002 
020102 
001406 
005237 002212’ 


104456 
001257 
073075" 
015374' 


104406 
012737 000400 072062’ 
000420 


012703 000001 
004737 010366’ 


016501 000002 
012702 000200 


005237 002212’ 
104456 


001260 
072477' 


Ne 
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s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
J RAARARAAAARARKS EERAERAERREAAEAEAEEARABRARAAREAAEAAEAREARADARREBREEEEESE 


JSR PC, ns 
BCS 130 

MOV TSSRCRS), R1 
MOV RO,R4 


INC FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


130$: CKLOOP 


;CALL TAPE REWIND COMMAND 
;BR, IF a PROBLEM 


sGET TSS 

sPACKET ADDRESS SET UP 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 
. WORD 
. WORD 

;LOOP IF SELECTED 
TRAP 


§ AAAREAAAEAAASASEEAEEASARESEARESEERESESARABAEAESEAEEEEAREAEBEREEEDEES 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


i 
{AMARA ERERARAAEERESRAAAEAAEEEEESEEEASEALEEAEEEHAREHSEHEEAEEEDEEEEES 


MOV T26BFR+6,R1 

MOV R1,R2 

BIS #BIT1,R2] 
R1,R2 

BEQ arae 


INC LG 
ERRHRD ERRNO. T26B0T ,EXPREC 


MOV #256. , T26RSZ 
BR 140$ 


sPICK UP XSTO 

;SET UP EXPECTE 

;SET BOT BIT IN. EXPECTED 
;D0ES EXP = REC'D 

BR, IF EQUAL (OK) 


;BUMP COUNT 

;TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 
WORD 


;LOOP IF SELECTED 
TRAP 
;STARTING RECORD SIZE 


;SKIP OVER THE SAPCE THIS TIME 


J FSSASASASESSSSESSSSSSESSESSESASHESEEEEHEESEEAEEHEEEEHEHEEASEKERHEAEEEESEAES 


; 
s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 


sBIT 15 SETS DIRECTION - O=FORWARD 


1=REVERSE 


‘ 
{FHSAA ESEREAESEEEEAASEEAEASASEEHAAEEESEEASEREAEEESSESDASEEASEALEEELE 


;SET UP SPACE COMMAND () FORWARD) 


132s: MOV #000001 ,R3 
JSR PC, SPACE 
BCS 140$ 
MOV TSSRCRS),R1 
MOV #SSR ,R2 
MOV RO,R4 


INC FATFLG 
ERRHRD ERRNO, T26SC,PKTSSR 


sCALL SPACE ROUTINE 
sBR, if NO TROUBLE 
;GET TSSR 

;SET UP EXPECTED TSSR 
s;PACKET ADDRESS SET UP 
sBUMP COUNT 


; SPACE C FORWARD ) rane 


THORD 
. WORD 


CSERHRD 


CSCLP1 


T2680T 
EXPREC 


CsCLP1 


CSERHRD 
688 
T26SC 


SEQ 233 


= 
T 6: 


011746’ 


104406 
013703 
013737 


012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
001261 
072305’ 
011746' 


104406 
017701 
013702 


015374' 


104406 
062737 
005723 
010337 
022703 
001402 
000137 


104403 
023727 
103402 
004737 


MAROWARE TESTS 1-8 
: REREADS 


072062" 
003114" 


161401 
072030’ 
072036' 
000000 
016150' 
000002 
000200 


002212’ 


116072 
072056' 


002212" 


002212' 
017104' 


BS 
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072032" 


072030' 


000017 


1403; 


1508; 


CKLOOP 


MOV 
MOV 


T26RSZ RS 
FREE , T26RB 


PKTSSR 
CsCLPi 


. WORD 
sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


PUT rrrrrriiririririiiiririiiiririiiri titi ii ii ttt 
3 
sREREAD DATA,CVC#1,ACK, OPP COMMAND 


3 
FOESSHAHAHEHSESSESEHHSSHSHESESAAEHEEHSEEEEEHEHEAEESEHEEHEEHEEEEEESEEEEEOEE 


1658: 


1708: 


1908: 


2008; 


161401, T26PK3 


@SSR ,R2 


ERRNO, T26RRF ,PKTSSR 


OFREE ,R1 
T26CNT ,R2 


ERRNO, T26WNG ,E XPREC 


#1, T26CNT 


FATFLG,@15. 
999% 
PC ,CKOROP 


sREREAD DATA,CVC=1,ACK, OPP COMMAND 
sSET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 

sIS COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 


sBUMP COUNT 
3TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERWRD 
- WORD 689 
WORD T26RRF 
. WORD PKTSSR 
sLOOP IF SELECTED 
TRAP C8CLPl 


sFIRST WORD FROM READ BUFFER 
sSET UP EXPECTED 
sIS TAPE POSITION CORRECT 
sKEEP GOING POSITION OK 


sBUMP COUNT 
sTAPE POSITION INCORRECT 
TRAP CSERHRD 
-WORD 690 
WORD T26WNG 
. WORD EXPREC 
CsCLPl 


TRAP 
sBUMP TAPE RECORD COUNTER 
sNEXT RECORD SIZE 
sSTORE RECORD SIZE 
sAT MAX SIZE YET 
sBR, IF AT END OF THE SUBTEST 
sKEEP GOING MORE RECORDS 


g>>>>>>>>>>2>> END SUBTEST »>>>>>>>>>>> 
L10118: 
TRAP CsESUe 
3IS ERROR COUNT AT 25 
28R, IF LESS THAN 25 
2TRr TO OROP THE UNIT 


SEQ 234 


7574 
7575 
7576 


test Po 


7577 | 


7626 


065220 


011734' 
013737 


012704 


ARP RARE, TESTS 1-8 


015674' 
002212' 


002172' 
071700° 


010562’ 
002212' 


east 
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071720' 


a 
sTEST 6, SUBTEST 10 


é 

sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1 
sANO SWB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
sTHE SAME THAT IS USED IN SUBTEST 3, BUT [T IS 
iVERIF IED THAT DATA STORED BY THE COMMAND CONTAINS 


sSWAPPED BYTES. 
5 


JSR PC, T26REST 
CLR T26CNT 

JSR PC, T26RT2 
JSR PC. T26RTS 


g>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>> >>> >> 
16.10: 


TRAP 
1SET COMMAND PACKET 
sCLEAR TAPE RECORD COUNTER 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 


F SSSHOSHSHHSHSHSHSSHSASHESSESEHEEEEHEHHESEHEEEHEHSEEHESEHHEEKEEEHEEEEEEED 


3 
s ISSUE CONTROLLER “SOFT” INITIALIZE 
: 


- CARRY BIT CLEAR IF ERROR 


FOSSASSHASSHSSSAHSSHSHSOSHSHHSHASHHEHESESEHSHEHESHHEESEEHEEHHESESEEES ® 


JSR PC, SOF INIT 
ecs 20% 

INC FATFLG 

MOV RO,R1 


ERRDF ERRNO, SFIERR,SFIMSG 


208: MOV UNITN, T260SW 
MOV OT26PACKET RG 


JSR PC, WRICHR 
BcS 26% 
INC FATFLG 

MOV RO,R1 

ERRHRD ERRNO,WRIMSG, SF IMSG 


26%: CKLOOP 


s00 INITIALIZE ON CONTROLLER 
s6R IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS oe 


sSET UP UNIT NUMBER 


Cs6SU8 


sSUBROUTINE NEEDS PACKET ADDRESS 


FSSHAHSHESHSSHHSSSASHHSSHAHSEHSSHSHHESEEEHOEHESEHHSESOHEEESEEEHEHHKEEEOEEOS 


3 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


7 
FSSHSOEHSSSSHESESHESSHHEAHEESSESHESESESHSEEHSHEEHHHHEHHESEHEEHEEHSEHESEEEEEEEEOSE 


sISSUE WRITE CHARACTERISTICS 
s8R, IF COMMAND ISSUED OK 
sBUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


sLOOP IF SELECTED 


CSERHRD 
692 
WRTMSG 
SF IMSG 


SEQ 235 


v7 - HARD HARE TESTS 1-8 


: ST 6: 


065220 


065326 
065334 
065340 
065340 
065344 
065352 
065 360 


104406 


011746’ 
104406 


013701 


073075’ 
015374' 


104406 
012703 
013737 


012737 
012704 


010337 
013777 
062737 
010465 


010714' 
000002 
000200 


002212’ 


071730' 
000002 


002212' 


000400 
003114’ 072032’ 


140005 072030’ 
072030' 


072036' 
072056' 115542 
000001 072056' 
000000 


D3 
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TRAP CsCLP1 


LEMSMAHAAAHHEESEAEEEESHEEHESOEH EEE EOAESEESESESEOOEEEHERESEEEEEDEOS 


} ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FECHAAHSSHAAASHASSASEEHASEEAAEEEHOSESEDEEEHAEEEEESEAEHESAAEEEEEEEEEOES 


30$: 


CKLOOP 


PC ,REWIND 
TSSRC(RS),R1 
@SSR ,R2 

30% 

RO,R4 


FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


sCALL TAPE REWIND COMMAND 

3;GET TSSR 

3SET UP EXPECTED TSSR 

38R, IF NO PROBLEM 

;PACKET ADDRESS SET UP 

;BUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 693 
WORD T26RWN 
~WORD PKTSSR 


TRAP CsCLPl 


sLOOP IF SELECTED 


J SSHSHASSHASHHSASSSASHSHSHEHHESESESSEHEEEEEEHEEHESOHEEEESASHEEEEEEEEEEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


é 
FSSHASNSSNSSSSHHASSHEHEHASHSHEHHESEHSEESEEHESHEHSEEHASESEHASEESEESEEHEEESEEESD 


40$: 


T26BFR+6,R1 


FATFLG 


ERRNO, T26B0T ,EXPREC 


@256.,R3 
FREE , T26RB 


3PICK UP xSTO 

3SET UP EXPECTED 

;SET BOT BIT IN ene 

;D0ES EXP = REC'D 

38R, IF EQUAL (OK) 

;BUMP COUNT 

TAPE NOT AT BOT AFTER — 

CSERHRD 
694 


WORD T26B0T 
"WORD €XPREC 
;LOOP IF SELECTED 


TRAP CsCLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


PEYUTIVITIT IIIT tiririiiiriviiiiriiiiiiriititiriviiiiiriiiiiiiii ts) 
3 
sWRITE DATA,CVC*1,ACK COMMAND 


é 
FPOSSHSSHHEHSSHEESESHESHEHHOHESHHSEHESHESESHESEHSEHHESSSEHSEEHEEESESEEESHEES 


653%: 


#140005, T26PK3 
@T26PK3,R4 


R3,1T26SZ 
T26CNI , OF REE 
1, T26CNT 
R4,TSOBCRS) 


sWRITE DATA,CVC*1,ACK COMMAND 
3SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
sMOVE TAPE RECORD NUMBER TO BUFFER 
sNUMBER READY FOR NEXT RECORD 

+ ISSUE COMMAND 


SEQ 236 


Eo 


TSV7 - HARGWARE TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 
TEST 6: REREADS 
7679 065364 004737 016150' JSR PC ,WAITF sWAIT FOR SSR TO SET 
7680 065370 016501 000002 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
7681 065374 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
7682 065400 020102 CMP R1,R2 sARE THEY EQUAL 
7683 065402 001406 BEQ 75$ ;6R, IF OK 
7684 065404 005237 002212' INC FATFLG sBUMP COUNT 
7688 065410 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
065410 104456 TRAP CSERHRD 
065412 001267 «WORD 695 
065414 005103' -WORD WRTERR 
065416 011746' . WORD PKTSSR 
7689 065420 753; CKLOOP ;LOOP IF SELECTED 
065420 104406 TRAP CSCLPL 
7690 065422 005723 TST (R3)+ sBUMP THE RECORD SIZE 
7691 065424 022703 000414 CMP 6268. ,R3 sMAXIMUM SIZE YET 
7692 065430 001401 BEQ 120$ - 3BR, IF AT END OF WRITE SEQUENCE 
7693 065432 000742 BR 65$ ;WRITE MORE RECORDS 
7694 065434 1208: 
nt 065434 005037 072056' CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 
7697 FFASASAHAHSHASEASSASARLASASALEALEAEHESLAAERESEEASCHESEEEESEEEAEEEDEOEDAEAE 
7698 3 
L444 s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
3 
ha | FPSSSAAHSASHSSEAAAEALADEAEEAHESEEEHEESASASREAEEEAEEEASHEEAEHREDEASEDEE 
02 
7703 065440 004737 010714’ JSR PC REWIND sCALL TAPE REWIND COMMAND 
7704 065444 103411 BCS 130$ 368R, IF NO PROBLEM 
7705 065446 916501 000002 MOV TSSRCRS),R1 ;GET TSSR 
7706 065452 010004 MOV RO,R4 sPACKET ADDRESS SET UP 
7707 065454 005237 002212’ INC FATFLG sBUMP COUNT 
7711 065460 ERRHRD ERRNO, T26RWN,PKTSSR ;REWEND NOT ACCEPTED 
065460 104456 TRAP CSERHRD 
065462 001270 -WORD 696 
065464 073364' .WORD T26RWN 
065466 011746' -WORD PKTSSR 
7712 065470 1303: CKLOOP ;LOOP IF SELECTED 
7713 065470 104406 TRAP CSCLP1 
aris $920 0660660606066606666060646066664666660660664040660664806460666066464646600646006 
3 
Mk sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
3 
At 4 FPSSHHSASSHAASESHASHESEHESEASEHEAAEHESEHASAAASEASEHAEREAEEREREHESEOREDROEE 
7720 065472 013701 071730’ MOV T26BFR+6,R1 sPICK UP xSTO 
7721 065476 010102 MOV R1,R2 ;SET UP EXPECTED 
7722 065500 052702 000002 BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 
7723 065504 020102 CMP R1,R2 3;00ES EXP = REC'D 
7724 065506 001406 BEQ 135$ ;BR, IF EQUAL (OK) 
7725 065510 005237 002212' INC FATFLG sBUMP COUNT 
7729 065514 ERRHRD ERRNO, T26B0T,EXPREC i TAPE NOT AT BOT AFTER REWIND 
065514 104456 TRAP CSERHRD 
065516 001271 -WORD 697 
065520 073075' WORD T26B60T 
065522 015374’ -WORD EXPREC 
7730 065524 1358; CKLOOP ;LOOP IF SELECTED 


SEQ 237 


TSv? 
TEST 6: 


REREADS 


104406 
012737 
000420 


012703 
004737 


011746' 


104406 
013703 
013737 


012737 
012704 


- HARDWARE TESTS 1-8 


000400 


000001 
010366' 


000002 
000200 


002212' 


072062’ 
003114’ 


161401 
072030' 
072036' 
000000 


002212' 


115216 
072056' 


002212’ 


x. 
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072062' 


072032’ 


072030' 


MOV 
BR 


#256. , T26RSZ 
140$ 


TRAP CsCLP1 
sSTART RECORD SIZE 


sSKIP OVER SPACE 


J PRAAAEAARARAARASAEASAREEADSESESERADASEAREREEAEAAEREAEDREEEEEODEEEAES 


3 
s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 


6 
FAAAAARAASEHAAOAASEEALAEARESEASLALELERESESEEAEEEAAEREAEREEEEEDEDREREES 


136$: 


INC 
ERRHRD 


1408; CKLOOP 
MOV 


150$: MOV 


#000001 ,R3 
PC, SPACE 


140$ 

TSSRCRS),R1 

@SSR ,R2 

RO,R4 

FATFLG 
ERRNO, T26SC ,PKTSSR 


T26RSZ,R3 
FREE , T26RB 


1=REVERSE 


sSET UP SPACE COMMAND (1 FORWARD) 
sCALL SPACE ROUTINE 

;B8R, IF NO TROUBLE ; 

;GET TSSR 

;SET UP EXPECTED TSSR 

sPACKET ADDRESS SET UP 


sBUMP COUNT 
sSPACE (FORWARD) FAILED ' 


RAP CSERHRD 

-WORD 698 

-WORD T26SC 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


PICU rrr rrr iiriririirririitiirritiiiiiititii tt ttt ttt 
é 
sREREAD DATA,CVC#1,ACK, OPP COMMAND 


: 
FFSSSSAASSSSESEHAHAAHESEHSHESEHHHSEEEESESEEAEHEAEEEEEEASEKEEEEEEEEEEEEE 


165$: 


1708; 


INC 
ERRHRD 


#161401, T26PK3 
@T26PK3,R4 


@SSR,R2 


LG 
ERRNO, T26RRF ,PKTSSR 


FREE ,R1 
T26CNT ,R2 
R1,R2 


LG 
ERRNO, T26WNG ,EXPREC 


sREREAD DATA,CVC=1,ACK, OPP COMMAND 
;SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 


;BR, IF OK 

;BUMP COUNT 

;TSSR INCORRECT AFTER REREAD DATA 
TRAP CSERHRD 
.WORD 699 
. WORD T26RRF 
. WORD PKTSSR 


;LOOP IF SELECTED 
AP CsCLP1 


TR 
sFIRST WORD FROM READ BUFFER 
:SET UP EXPECTED 
:IS TAPE POSITION CORRECT 
sKEEP GOING POSITION OK 
:BUMP COUNT 
; TAPE POSITION INCORRECT 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


065770 
065770 
065770 
065772 
065776 
066002 


104456 
001274 
072066' 
015374' 


104406 
062737 
005723 
010337 
022703 
001402 
000137 


104403 
023727 
103402 
004737 


104402 
004737 
004737 
004737 


004737 
103407 
005237 
010001 


104455 
001275 
003642’ 


000001 072056' 


072062' 
000412 


065536' 


002212' 
017104' 


074620' 
074712’ 
074754’ 


015674' 
002212' 


G3 
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000017 


190$; CKLOOP 
ADD #1, T26CNT 
CR3)-+ 


TST 
MOV R3, T26RSZ 
CMP 266. ,R3 
BEQ 220% 
‘ JMP 136$ 
2208: 
ENDSUB 
CMP FATFLG, 15. 
BLO 9993 
JSR PC ,CKOROP 
999$: 


3¢ 
é 
s;TEST 6, SUBTEST 11 


TRAP 
sBUMP TAPE RECORD COUNTER 
sNEXT RECORD SIZE 
sSTORE RECORD SIZE 
sAT MAX SIZE YET 
BR, IF AT ENO OF THE SUBTEST 
sKEEP GOING MORE RECORDS 


CSERHRD 
700 


T26WNG 
EXPREC 


CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


110114; 
TRAP 
sIS ERROR COUNT AT 25 
;B8R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


‘ 

sVERIFIES THAT A REREAD NEXT COMMAND READING A 
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
sLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 


sSTATES OF OPP (O AND 1). 
; 

° 

; 

g° 


BGNSUB 

JSR PC, T26REST 
JSR PC, T26RT2 
JSR PC, T26RTS 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T6.11: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 


Peer rrrrrrrrrrrrrrririirritiirrrrrririrtttitittTttTtTy 
; 

sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

; 


J FFEAAHASEHEEASESEHSSESESHODESAECHSEAOAESARSAEADESEAAEESASESEKRESEDREEAEES 


JSR PC, SOF INIT 
BCS 20% 

INC FATFLG 
MOV 


RO,R1 
ERRDF ERRNO, SFIERR,SFIMSG 


300 INITIALIZE ON CONTROLLER 

3BR IF INIT WAS OK 

sBUMP COUNT 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 


CsESUB 


CsBSUB 


CsERDF 
701 
SFIERR 


SEQ 239 


H3 


TSV7 - e's TESTS 1-8 MACRO M1113 0O1-FEB-84 17:54 } 4 
TEST 6: REREADS —_ 
066030 011734' » WORD SF IMSG 
aa ns 066032 013737 002172' 071720' 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
ha 5 066040 012704 071700' MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
7838 FAAAAAAERARAEHASASEAAEREEEEARERESEAEERASEEEESEEEEAREEAREAEEEADERESE 
7839 ; 
eaen sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
1 
7842 | ensecescceceseconsonseeesesessceensncesooseecnsnnsens+e+++seneees 
7843 
7844 066044 004737 010562’ JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
7845 066050 103407 BCS 26$ 36R, IF COMMAND ISSUED OK 
7846 066052 005237 002212’ INC FATFLS ;BUMP COUNT 
7850 066056 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
7851 066060 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
066060 104456 TRAP CSERHRD 
066062 001276 . WORD 702 
066064 005046' . WORD WRTMSG 
066066 011734' . WORD SF IMSG 
7852 066070 268: CKLOOP ;LOOP IF SELECTED 
7853 066070 104406 TRAP CsCLP1 
7854 FPRAARARAAEESAARADAERERESEREEAASELADADESEEESEEAESALERERERESEEAEEEEE 
7855 H 
ast ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
rene 5 000000606000000000000000000000000000000000000000000000000000000008 
859 
7860 066072 004737 010714’ JSR PC ,REWIND sCALt. TAPE REWIND COMMAND 
7861 066076 016501 000002 MOV TSSRCRS),R1 ;GET TSSR 
7862 066102 012702 000200 MOV @SSR,R2 sSET UP EXPECTED TSSR 
7863 066106 103407 6cSs 30$ ;B8R, IF NO PROBLEM 
7864 066110 010004 MOV RO,R4 ;PACKET ADDRESS SET UP 
7865 066112 005237 002212‘ INC FATFLG ;BUMP COUNT 
7869 066116 ERRHRD ERRNO, T26RWN,PKTSSR i REWIND NOT ACCEPTED 
066116 104456 TRAP CSERHRD 
066120 001277 «WORD 703 
066122 073364' . WORD T26RWN 
066124 011746’ : . WORD PKTSSR 
7870 066126 30$: CKLOOP ;LOOP IF SELECTED 
7871 066126 104406 TRAP CsCLP1 
a | FORAAAASEREEASESEAEEEESESEEEEEEEAEEEEHESESESEEEEOEAEEEHESEEEEROREEEE 
3 
hd sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
ad 5 eaneeenseneenneennnsentenseenaneseennnssensneensesons+eseseeeees 
7878 066130 013701 071730' MOV T26BFR+6,R1 sPICK UP XSTO 
7879 066134 010102 MOV R1,R2 ;SET UP EXPECTED 
7880 066136 052702 000002 BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 
7881 066142 020102 CMP R1,R2 ;D0ES EXP = REC'D 
7882 066144 001406 BEQ 40$ 38R, IF EQUAL (OK) 
7883 066146 005237 002212’ INC FATFLG ;BUMP COUNT 
7887 066152 ERRHRD ERRNO, T26B0T ,EXPREC ‘TAPE NOT AT BOT AFTER ——e 


066152 104456 TRAP CSERHRD 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: 


REREADS 


001300 
073075’ 
015374: 


104406 
012703 
013737 


012737 
012704 


010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
001301 
005103’ 
011746' 


104406 


011746' 
104406 


001000 
003114’ 072032’ 


140005 072030’ 
072030' 


002212' 


010714' 
000002 
000200 


002212’ 


MACRO M1115 


40$: 


3 


O1-FEB-84 17:54 


CKLOOP 
MOV #512. ,R3 
MOV FREE , T26RB 


sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


j PPAAAAAAEREAAAEEAEEEEAEEEEEAAEEEDEAEREREEEEEAEREEEEEEDDEEREREEEDES 
3 
sWRITE DATA,CvC*1,ACK COMMAND 


° 
FPSAAHEAKSAAOAHASARSEEASAERESALEAEEBEAERARADEEAEEERADAREEEEASEEEEEE 


65$: 


75$: 


MOV #140005, T26PK3 
MOV @T26PK3,R4 

MOV R3,T26SZ 

MOV R4, TSDOBCRS) 
JSR PC ,WAITF 

MOV TSSRCRS),R1 
MOV @SSR,R2 

CMP R1,R2 

BEQ 75$ 

INC FATFL 


LG 
ERRHRD ERRNO,WRTERR,PKTSSR 


CKLOOP 


sWRITE DATA,CVC=1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


704 
T26B0T 
EXPREC 


CsCLP1 


3;6R, IF OK 

;BUMP COUNT 

:TSSR INCORRECT AFTER WRITE DATA 
TRAP 
.- WORD 
WORD 
.-WORD 

;LOOP IF SELECTED 
TRAP 


SPPAREREEEEEAEEAEEEASEEEEEEEEEAAEAEREREAERAEEEEEDEDEREREEEEREREEEES 
3 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


; 
J SSAMROHAHAAASSHESAHASASESHEHEASEAHESEEEEHAEHEEEEEEEAEEEAEEEEEEEEAEHEEDEE 


130$: 


JSR PC ,REWIND 
MOV TSSRC(RS),R1 
MOV @SSR,R2 
Bcs 130$ 

MOV RO,R4 

INC ATF 


FATFLG 
ERRHRD ERRNO, T26RWN,PKTSSR 


CKLOOP 


;CALL_ TAPE REWIND COMMAND 
;GET TSSR 

sSET UP EXPECTED TSSR 
:BR, IF NO PROBLEM 
sPACKET ADDRESS SET UP 
;BUMP COUNT 

; REWIND NOT ACCEPTED 


sLOOP IF SELECTED 
TRAP 


SPSS HEEEEEEEEEAEEDEEEEOEOEOEO4666464606460664006060060066660660640000008060464088 


3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


CsCLP1i 


CSERHRD 
706 


T26RWN 
PKTSSR 


CsCLP1 


SEQ 241 


J3 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 01-FEB-84 17:54 SEQ 242 
TEST 6: REREADS 


7937 PeTITT ILI TTT TT TT ir titi titritirttrritrirtrititititiiitiitiiitiiititT 

7938 

7939 066314 013701 071730' MOV T26BFR+6,R1 ;PICK UP xXSTO 

7940 066320 010102 MOV R1,R2 3;SET UP EXPECTED 

7941 066322 052702 000002 BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 

7942 066326 020102 CMP R1,R2 sD00ES EXP = REC'D 

7943 066330 001406 BEQ 140$ ;8R, IF EQUAL (OK) 

7944 066332 005237 002212' INC FATFLG sBUMP COUNT 

7948 066336 ERRHRD ERRNO, T26B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
066336 104456 TRAP CSERHRD 
066340 001303 . WORD 707 
066342 073075' ~ WORD T26B0T 
066344 015374' » WORD EXPREC 

7949 066346 140$: CKLOOP ;LOOP IF SELECTED 
066346 104406 TRAP CSCLP1 

7950 066350 005303 DEC R3 3SET RECORD SIZE TO 511. 

rea 066352 013737 003114' 072032' MOV FREE , T26RB sSTARTING READ BUFFER ADDRESS 

7953 PyYTVTTIrTT iT Ti iTtriTririr tii irritittit tit ititiitiriii iri tititiiii ttt) 

7954 3 

co sREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 

3 

7957 Pyrrrrirrrrrrrrtrirt tir ttttrttitr iti tititiitirtiitiiitiiiiiitiriti ty 

7958 

7959 066360 012737 161401 072030' MOV #161401, T26PK3 sREREAD DATA,CVC=1,ACK,OPP=1 COMMAND 

7960 066366 012704 072030' 165$: MOV @T26PK3,R4 3;SET UP R4 WITH PACKET ADDRESS 

7961 066372 010337 072036' MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 

7962 066376 010465 000000 MOV R4,TSOBCRS) s ISSUE COMMAND 

7963 066402 004737 016150’ JSR PC ,WAITF sWAIT FOR SSR TO SET 

7964 066406 016501 000002 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

7965 066412 012702 100204 MOV @SSR!SC!BIT2, R2 ;SET UP EXPECTED 

7966 066416 020102 CMP R1,R2 sARE THEY EQUAL 

7967 066420 001406 BEQ 170$ ;6R, IF OK 

7968 066422 005237 002212’ INC FATFLG ; BUMP COUNT 

7972 066426 ERRHRD ERRNO, T26TRL,.PKTSSR ;TSSR INCORRECT AFTER ~~. DATA 
066426 104456 TRAP CSERHRD 
066430 001304 . WORD 708 
066432 074442' ~WORD T26TRL 
066434 011746' .WORD PKTSSR 

7973 066436 170$: CKLOOP ;LOOP IF SELECTED : 

_— 066436 104406 TRAP CSCLP1 

ore Pee TT ITi Ti rit titi titi irr irirititititiiiritiiiiititiitiiitirirititi ty) 

976 F 

add sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 

ekg + 000000000000000000000000000000000000000000000000000000000000000008 

7981 066440 013701 071730‘ MOV T26BFR+6,R1 3GET MESSAGE BUFFER 

7982 066444 010102 MOV R1,R2 :SET UP EXPECTED 

7983 066446 052702 010000 BIS #BIT12,R2 3;SET THE RLL BIT IN EXPECTED 

7984 066452 020102 CMP R1,R2 ;ARE THEY EQUAL 

7985 066454 001406 BEQ 180$ ;BR, IF EQUAL CALL IS wELL) 

7986 066456 005237 002212’ INC FATFLG ; BUMP COUNT 

7990 066462 ERRHRD ERRNO, T26LON,EXPREC THE RLL BIT WAS NOT SET IN xSTO 
066462 104456 TRAP CSERWRD 


066464 001505 -WORD 709 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


074210’ 
015374' 


104406 
012703 
013737 


012737 


074442' 
011746’ 


104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001307 
074210' 
015374’ 


104406 


104403 
023727 
103402 
004737 


000777 
003114' 


141401 
072030’ 
072036' 
000000 


002212’ 


071730' 
010000 


002212' 


002212’ 
017104' 


K3 
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072032' 


072030' 


000017 


. WORD T26LON 
. WORD EXPREC 
180$: CKLOOP 
TRAP CSCLP1 
MOV #511. ,R3 ;SET UP SIZE OF RECORD 
MOV FREE, T26RB sSTARTING READ BUFFER ADDRESS 
J ASAAAAASSEAKSAEAREEASESABAEEAEAAEEADASEAAADEREEAAEREREEESEEEEESEAEDESD 
e 
sREREAD DATA,CVC=1,ACK COMMAND 
a 
FESARASAREAKAHEHSAEREEASEHEAAAEEASEEHEREEARESEREEEEESSEEEEESEESADEES 
MOV #141401, T26PK3 sREREAD DATA,CVC=1,ACK COMMAND 
365$: MOV @T26PK ;SET UP R4 WITH PACKET ADDRESS 
MOV R3,T26SZ 3SET UP RECORD SIZE IN PACKET 
MOV R4,TSOBCRS) s ISSUE COMMAND 
JSR PC ,WALTF sWAIT FOR SSR TO SET 
MOV TSSR(RS), R1 ;GET TSSR CONTENTS 
MOV @SSR!SC!BIT2, Re ;SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 370% ;BR, IF OK 
INC FATFLG ; BUMP COUNT 
ERRHRD ERRNO, T26TRL,.PKTSSR ;TSSR INCORRECT AFTER oe DATA 
TRAP CSERHRD 
- WORD 710 
.- WORD T26TRL 
.WORD PKTSSR 
370$: CKLOOP ;LOOP IF SELECTED 
; TRAP CSCLP1 
FFAARHAAHAAEAREEASEAEASESAARESERESEEEESEEEAESEEEERESEEEDEOAAEEEREEE 
4 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
o 
FAAAAAAAEESEEEEAEEEESEEEREREEEEEEEEEEEEEEEEEEAEEEEEAEEEHEEEEHEDE RED 
MOV T26BFR+6,R1 ;GET MESSAGE BUFFER 
MOV R1,R2 ;SET UP EXPECTED 
BIS #B1IT12,Re2 ;SET THE RLL BIT IN EXPECTED 
CMP R1,Re2 sARE THEY EQUAL 
BEQ 380$ ;B8R, IF EQUAL CALL IS WELL) 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26LON,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
. WORD 711 
. WORD T26LON 
.» WORD EXPREC 
380$: CKLOOP 
TRAP CSCLPL 
ENDSUB ;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10115: 
TRAP CsESUB 
CMP FATFLG, #15. 3IS ERROR COUNT AT 25 
BLO 999% ;8R, IF LESS THAN 25 


999%: 


JSR PC ,CKDROP ;TRY TO OROP THE UNIT 


SEQ 243 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


104402 
004737 
004737 
004737 


013737 
012704 


004737 
103407 
005237 
010001 


104456 
001311 


074620' 
074712' 
074754' 


015674' 
002212" 


002172" 
071700' 


010562’ 
002212" 


L3 
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071720' 


3¢ 
3 
sTEST 6, SUBTEST 12 


; 

s;VERIFIES THAT A REREAD NEXT COMMAND READING A 
sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
s TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
sSHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
sRESIOUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER 
sCONTAINS THE PROPER NONZERO VALUE (E.G., THE 
;DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
sSTATES OF OPP (O AND 1). 

é 


H 
H 
BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T6.12: 
TRAP Cs6SuUB 


JSR PC, T26REST 3SET COMMAND PACKET 
JSR PC, T26RT2 3SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 


Perri rrrrrrrrrrrrrrrirrrirrrrririrtiriritiriiitiiiiiiitttTy 
H 
sISSUE CONTROLLER “SOFT” INITI® IZE - CARRY BIT CLEAR IF ERROR 


; 
F FSSHASAAAEHEEEESSEASESSESHESSSEHHEEEEHEEHEAEEEHAAEEEEHASEEEEEEEDREREDEES 


JSR PC,SOF INIT 300 INITIALIZE ON CONTROLLER 

BCS 20$ ;BR IF INIT WAS OK 

NC FATFLG ;BUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SF IERR,SFIMSG ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 712 
WORD SFIERR 
WORD SFIMSG 

20%: MOV UNITN, T260SW ;SET UP UNIT NUMBER 
MOV @T26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


J SSSHSSHESHSESASASEEESEEESESESESEESEEEESEEEEEEEEEEEEEHESEESEEAESEESEEED 


; 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
; OueunadinenianteneenbnsasnnnennennennenetbeienennerneneesnnebeeNne 


JSR PC, WRTCHR s ISSUE WRITE CHARACTERISTICS 
BCS 26% ;6R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERMRD 


. WORD 713 


SEQ 244 


TSV7 - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


066734 
066736 
066740 
066740 


067000 
067004 
067006 
067012 
067014 
067016 
067022 
067022 
067024 
067026 
067030 
067032 
067032 
067034 
067040 


067046 
067054 
067060 
067060 


005046: 
011734' 


104406 


011746' 
104406 


013701 


015374' 
104406 


012703 
013737 


012737 
012704 


010._” 


010714' 
000002 
000200 


002212' 


071730' 
000002 


002212" 


000400 
003114' 


140005 
072030' 


072036' 


M3 
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072032’ 


072030' 


-WORD WRTMSG 
-WORD SFIMSG 


TRAP CSCLP1 


J PPAAAAHRARAAASESEREAARASASARARAEEAEREREAEEEEEESEAEEAEAEAASEEAAEEEEE 


i 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


i 
{ SAAAAAEAAAAAESERARESESEEESAREEEEEEABRABEAERARELASASAACEEEOEEEEEEEEE 


268: CKLOOP ;LOOP IF SELECTED 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
MOV TSSRCRS),R1 ;GET TSSR 

MOV @SSR ,R2 ;SET UP EXPECTED TSSR 

BCS 30$ ;BR, IF NO PROBLEM 

MOV RO,R4 ;PACKET ADDRESS SET UP 
INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED 


TRAP CSERHRD 

«WORD 714 

-WORD T26RWN 

-WORD PKTSSR 

TRAP CsCLPlL 
J PREREEEAEEEAEEEEEEEEEEEEEEAEEAEAREERAEEEEREREDDEEDEEEEEEDEEEEREREESE 


; 
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
FAMAAAAAASAHAASABASABASESAESESASESASEHEEEERAASEHSEHESASEAEEASESSEAESEEEE 


30$; CKLOOP ;LOOP IF SELECTED 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS @BIT1,R2] ;SET BOT BIT IN EXPECTED 

CMP R1,R2 ;D0ES EXP = REC'D 

BEQ 40$ 3BR, IF EQUAL (OK) 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 715 
-WORD T26B0T 
«WORD EXPREC 

40%: CKLOOP ;LOOP IF SELECTED 

TRAP CscLPL 

MOV #256. ,R3 sRECORD SIZE 

MOV FREE , T26RB sSTARTING WRITE BUFFER ADDRESS 


FRAAAAAEAEAEERDEEEAEAEEAEEEEEEEAARESERESEREOEAESORAEREESES EEE EDAREDE 
5 

sWRITE DATA,CVC=1,ACK COMMAND 

; 
FRRRAREEAAEAERAEEEEEEEAEEEEAAEEAEEEAAEAAEREEREEREEEEEEEREEEEAEAR ERE 


MOV #140005, T26PK3 sWRITE DATA,CVC=1,ACK COMMAND 
MOV #T26PK3,R4 ;SET UP R4& WITH PACKET ADDRESS 


MOV R3,T26SZ ;SET UP RECORD SIZE IN PACKET 


65$: 


SEQ 245 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: 


8144 
8145 
8146 
8147 
8148 
8149 
8150 
8154 


MACRO M1113 


REREADS 


010465 000000 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
001314 
005103' 
011746' 


104406 


002212' 


75$: 
120$: 


N3 
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MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR ,R2 

CMP R1,R2 

BEQ 75$ 

INC FATFLG 

ERRHRD ERRNO,WRTERR,PKTSSR 
CKLOOP 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 

sBR, IF OK 


sBUMP COUNT 
;TSSR INCORRECT AFTER wig Rye 
A 


;LOOP IF SELECTED 


FPSRASEAAAAARESASESALALEASESEEHEEAEEEHEEASEAAEEAEEDAEAERESEEEEERERES 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
° 


F SSASAAAAAAREEASESESEHEAAASADESASEESEESEAEEERELELASDALERESEERESEESEHREEEEE 


010714’ 
000002 
000200 


002212' 


011746' 
104406 


130$: 


JSR PC ,REWIND 
MOV TSSRCRS),R1 
MOV @SSR,R2 
BCS 130$ 

MOV RO,R4 

INC FATFLG 


ERRHRD ERRNO, T26RWN,PKTSSR 


CKLOOP 


;CALL TAPE REWIND COMMAND 
;GET TSSR 

;SET UP EXPECTED TSSR 
;BR, IF NO PROBLEM 
sPACKET ADDRESS SET UP 


;BUMP COUNT 
sREWIND NOT ACCEPTED 


;LOOP IF SELECTED 
TRAP 


FPASHASHAEASAASHSAEHSEESSEHEAEHEHESHEHEEEEEASEAESEEREEEEHREEEHEEOEHEDEEAEE 


3° 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
; 


FARRAR AAARHEAERASESEASSESAEASEHEASEESESEEEEAESEEEEEAEEEAEAEOEEEEEESEEEEEE 


013701 071730’ 


000002 


002212’ 


015374' 


104406 
012703 001000 
013737 003114’ 


135$; 


072032’ 


MOV T26BFR+6,R1 

MOV R1,R2 

BIS #BIT1,R2 

CMP R1,R2 

BEA 135$ 

INC FATFLG 

ERRHRD ERRNO, T26B80T ,EXPREC 
CKLOOP 

MOV #512. ,R3 

MOV FREE , T26RB 


sPICK UP XSTO 

UP EXPECTED 

BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

sBR, IF EQUAL (OK) 


;BUMP COUNT 

; TAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
. WORD 


. WORD 
;LOOP IF SELECTED 
TRAP 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


WRTERR 
PKTSSR 


CsCLP1 


CSERHRD 
717 
T26RWN 
PKTSSR 


CsCLP1 


CSERHRD 
718 
T26B0T 
EXPREC 


CscLPi 


SEQ 246 


6: RERE 


012737 


011746' 


104406 


013701 


074272’ 


015374' 


104406 
012703 
013737 


161401 072050' 
072030' 


072036' 
000000 
016150’ 
000002 
100204 


002212' 


071730' 
040000 


002212' 


071726’ 
000400 


001000 
003114' 


B4 
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072052' 


FE PSASHHSEHSHEHASHEHOEHESHEEESESEEEESEEEREEEHOEHEESHEEEEEEHEHEEEEEOEEOE 


3 
sREREAD NEXT ,ACK,CvC*1,0PP*1 
Q 


FE SOSASHSHSSHASSSSSSHEASESESEHEEEESEEHEHAOEEEHOEEEEHEEEEEAEKEEHEOEES 


MOV #161401, T26PKS 


165%: MOV @T26PK3 ,R4 

MOV R3, 12682 

MOV R4, TSOB(RS ) 

JSR PC ,WAITF 

MOV TSSRC(RS),R1 

MOV @SSR!ISCIBIT2,R2 

CMP R1,R2 

BEQ 1708 

INC FATFLG 

ERRHRD ERRNO, T26TRL ,PKTSSR 
1708: CKLOOP 


sREREAD NEXT, ACK ,CVC*1,0PP*1 
1SEi UP R4 WITH PACKET ADORE SS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


sBR, IF OK 

sBUMP COUNT 

iTSSR INCORRECT AFTER — — 

CSERHRD 

MyORO 719 
«WORD T26TRL 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 


F SSSSSASSEHASSHAEHEEASESSEEHASEEEEESESEESEESEESEEEHESEEEEEEEEHEEEEEEES 


t 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


$ 
SSSSSASSSHSSHSSSSSHSSHHSHHHSHSSESSHHOHEHSHSHESEHSSHEHHEHEHHHEEHHHEESEEEOE 


MOV T26BFR+6,R1 

MOV R1,R2 

BIS oBIT14,R2 

CMP R1,R2 

BEQ 18038 

INC FATFLG 

ERRHRD ERRNO, T26LOP,EXPREC 
1808: CKLOOP 

MOV T26BFR-4,R1 

MOV 0256. ,R2 

CMP R1,R2 

BEQ 190$ 

ERRHRD ERRNO, T26PBP,EXPREC 
1908: CkKLOOP 

MOV 0512.,R3 

MOV FREE , T26RB 


sGET MESSAGE BUFFER 

sSET UP EXPECTED 

;SET THE RLS BIT IN EXPECTED 

sARE THEY EQUAL 

3sB8R, IF EQUAL CALL IS WELL) 

38 OUNT 

sTHE RLL BIT WAS NOT SET IN xSTO 
TRAP CSERHRD 
. WORD 720 
. WORD T26L0P 
-WORD EXPREC 
TRAP CsCLPL 


sPICK UP RUSIOUAL BYTE COUNTER 
sTHIS SHOULD BE THE DIFFERENCE 
sIS THE DIFFERENCE CORRECT 
s8R, IF CORRECT 

sRBPCR NOT CORRECT 


TRAP CSERWRD 

. WORD 720 

. WORD T26PBP 

-WORD EXPREC 
3;LOOP IF SELECTED 

TRAP CsCLPl 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


FEAT “<t*RPHERBSTESTS 1-8 


067410 
067416 
067422 
067426 
067432 
067436 
067442 


8260 067446 


8294 
8295 


067450 
067452 
067456 
067456 
067460 
067462 
067464 
067466 
067466 


012737 
012704 


321 
074442' 
011746' 


104406 


013701 


2 
074272' 


015374' 
104406 


141401 
072030' 
072036' 
000000 
016150’ 
000002 


100204 


002212’ 


071730' 
040000 


002212' 


071726’ 
000400 


C4 


MACRO M1113 O1-FEB-84 17:54 


PESHSSSHSHHHESESOSSEEOEESHEASEEHEEEOEEHEEEEEEEEEEEEEEHEEEEEEEHEHEE REDS 


}REREAD NEXT, ACK,CVC#1,0PP#0 


3 
FPESSAHSSSHSSHAHASSESEEEOHHEHEEHSESESOHEESEHEEEEEAEEEEEEHSAREADOEOEEEEEEEE 


072030' 


2708: 


INC 
ERRHRD 


CKLOOP 


#14140) , T26PK3 
@T26PK3 ,R4 


TSSRCRED AL 
@SSR!SCIBIT2,R2 
R1,R2 


270% 
FATFLG 
ERRNO, T26TRL ,PKTSSR 


sREREAD NEXT, ACK,CVC*1,0PP«0 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

36R, IF OK 

sB8UMP COUNT 

sTSSR INCORRECT AFTER —— 


J SSSSSHHASASSHHHHHSSHEESSSHASSEHHSHEEHEHAESEEEHESHHEESEEEHEEEEEHEEEEEE 


‘ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


3 
FSSHROHSESSSSHHSSSSHSSSHHSSEHSSHESHSSHESSSSESEESHHOSESEESHEEEEHHOAKEEEEES 


2808: 


2908: 


T26BFR+6,R1 
R1.R 


FATFLG 
ERRNO, T26LOP ,EXPREC 


T26BFR-4,R1 

6256 . »R2 

R1,R2 

2908 

ERRNO, T26PBP ,EXPREC 


CSERMRD 

-WORD 721 
«WORD T26TRL 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 

sGET MESSAGE BUFFER 

sSET UP EXPECTED 

sSET THE RLS BIT IN EXPECTED 

sARE THEY EQUAL 

sBR, IF EQUAL CALL IS WELL) 

sBUMP COUNT 

sTHE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
«WORD 722 
-WORD T26LO0P 
«WORD EXPREC 
TRAP CscLPi 

sPICK UP RESIDUAL BYTE COUNTER 

sTHIS SHOULD BE THE DIFFERENCE 

sIS THE DIFFERENCE CORRECT 

sBR, IF CORRECT 

sRBPCR NOT CORRECT 
TRAP CSERHRD 
«WORD 722 
-WORD T26PEP 
-WORD EXPREC 


sLOOP IF SELECTED 
CsCLPl 


TRAP 
g>>>>>>>>>>>> END SUBTEST »>>>>>>>>>>> 
L10116; 


SEQ 248 


D4 


- HAI - F , P 
tex} P. BPKARB TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 SEQ 249 
067554 104403 TRAP CSESUB 
8296 067556 023727 002212' 000017 CMP FATFLG,@15, sIS ERROR COUNT AT 25 
8297 067564 103402 BLO 999% sBR, IF LESS THAN 25 
8298 067566 004737 017104' JSR PC, CKDROP sTRY TO OROP THE UNIT 
8299 067572 999%; 
8300 
8301 ‘* 
8302 ; 
Saos sTEST 6, SUBTEST 13 
3 
8305 s;VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
8306 sNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR 
8307 s TERMINATION (TC=4 OR 5) WITH NXM=1 AND THAT THE TAPE 
8308 3IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS 
34 3;0F REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED. 
g- 
6311 
8312 067572 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
067572 76.13: 
067572 104402 TRAP C$BSUB 
8313 067574 005737 003126’ TST NXMFLG 300 WE HAVE IT? 
8314 067600 001002 BNE 10% 3BR, IF ENOUGH 
8315 067602 000137 070604’ JMP 200% sSKIP THIS TEST IF NOT 
8316 067606 004737 074620' 108: JSR PC, T26REST sSET COMMAND PACKET 
8317 067612 005037 072056’ CLR T26CNT sCLEAR TAPE RECORD COUNTER 
8318 067616 004737 074712’ JSR PC, T26RT2 sSET UP OTHER COMMAND PACKET 
aeee 067622 004737 074754' JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
tt PPC IVI IIIT IiiiriiriiiiriiriiiiiiiriiiiiiiiiirriiiiiitiiiittttiTy) 
é 
eece sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
ooze | Se aneadnaeeeNReNNNaAiREeNReENeeERRaAAREneN 
8327 067626 004737 015674' JSR PC, SOF INIT s00 INITIALIZE ON CONTROLLER 
8328 067632 103407 BcS 20% sBR IF INIT WAS OK 
8329 067634 005237 002212’ INC FATFLG sBUMP COUNT 
8333 067640 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
8334 067642 , ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
067642 104455 TRAP CSEROF 
067644 001323 «WORD 723 
067646 003642’ -WORD SFIERR 
067650 011734’ . WORD SF IMSG 
444 067652 013737 002172’ 071720' 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
tg 067660 012704 071700’ MOV OT26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
aoee PIII III IIIT ITI iriiiiiiiiirritrriirirriiirritrirrriiiiiiitiiiitTtyTy 
é 
Soak sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 
nee sainninhdieeeieaisiiada iia tenbebiniiiiesbinenieaeubeabimbiemetmniinieiiie 
4 
8345 067664 004737 010562’ JSR PC, ,WRICHR sISSUE WRITE CHARACTERISTICS 
8346 067670 103407 6csS 26% :BR, IF COMMAND ISSUED OK 
8347 067672 005237 002212’ INC FATFI.G sBUMP COUNT 


8351 067676 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 


TSV? - MAROWARE TESTS 1-8 
REREADS 


TEST 6: 


8352 


070012 
070020 


104456 
001324 
005046' 
011734' 


104406 


011746’ 
104406 


013701 


326 
073075’ 
015374' 


104406 
013737 


012737 
012704 


021024' 
010714’ 


000002 
002212' 


071730' 
000002 


002212’ 


003114’ 


140005 
072030' 


E4 


MACRO M1113 01-FEB-84 17:54 


072032" 


072030' 


ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC ——- 
- WORD 
. WORD 
. WORD 
268: CKLOOP sLOOP IF SELECTED 
TRAP 


FFPAOHAASHSSHASHADESESSEEASEEASEEEEEEEEAEEESEEEHEEEEAREEEEEOEEEEEEEEESE 


3 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
jAeananananccesccssossonnncsoooncanecoocoeasonsoosoossooooesceceees 


JSR PC, INVERT sINVERT THE EXTENDED FEATURES 

JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

BCS 30$ sBR, IF NO PROBLEM 

MOV TSSRC(RS),R1 sGET TSSR 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED — 
. WORD 
. WORD 
. WORD 

30$: CKLOOP sLOOP IF SELECTED 

TRAP 


FSSAHSHEHASEHAHHHSSSHSHESEESEEHAASEEESHESEEEHHAEEEEEEEEEEEEEEEEHEEEEEEDEEEE 


3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


5 
F SSSHHSAHHSHSSHSHEHASSEESEHSHSHOHHEHESEHHEHESSESESEHEHASEEHHEASEEEEEEES 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 403 sBR, IF EQUAL (OK) 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC ;TAPE NOT AT BOT AFTER ——- 
. WORD 
- WORD 
- WORD 

40%: CKLOOP sLOOP IF SELECTED — 
MOV FREE , T26RB8 sSTARTING WRITE BUFFER ADDRESS 


FEOASOHOEEEAEEEESADEEEEEEAESEDHEEOEEEEOEEEESEEEEDEEEEEHEREDEEEREEDS 
H 

sWRITE DATA,CVC*1,ACK COMMAND 

i 

FORSHEE AHEHESESESEEESEEEODOEDOEEEEHOEHOREEODESEDARESEDEREDEREDERERES 


MOV #140005, T26PK3 sWRITE DATA,CVC*1,ACK COMMAND 
MOV @T26PK3,R4 sSET UP R4 WITH PACKET ADDRESS 


CSERHRD 
724 

WRTMSG 
SF IMSG 


CsCLP1 


SWITCH 


CSERHRD 
725 
T26RWN 
PKTSSR 


CsCcLP1 


CSERHRD 
726 
T26B0T 
EXPREC 


CsCLP1 


SEQ 250 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: 


REREADS 


070132 
070136 
070140 
070144 
070146 
070152 
070152 
070154 
070156 
070160 
070162 
070162 


070164 
070170 
070172 
070176 
070200 
070202 
070206 


012737 
013777 
062737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 


104456 
001327 
005103' 
011746' 
104406 
022737 
001401 
000741 
005037 


005037 


011746" 
104406 


013701 
2 


005237 


000400 072036’ 
072056' 113054 
000001 072056’ 
000000 


000013 072056’ 


003132’ 
072056' 


010714' 
000002 
002212' 


071730' — 
000002-~. 


002212’ 


F4 


FOSSSAHAHAHASASSHSSSESSESASEHHAEEEHHEEEASHADEEEHESAAEEEEAEEEEEEEEEEEERES 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
FFSSSASASSSOSESASASHEEEAHAAESESHHEESEESEAEEESEEESEHHEEAEEHEEEESEEOEES 


JSR 1 Yas :CALL TAPE REWIND COMMAND 


BCS 38R, IF NO PROBLEM 

MOV TSSRCRS),R1 ;GET TSSR 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR sREWINOD NOT ACCEPTED _ 
TRAP 
. WORD 
. WORD 
. WORD 

1308: CKLOOP sLOOP IF SELECTED 

TRAP 


sPORREAEAEREERERAEEEEDEEEEEREEEOAEEEOEESEEEEEESEEEEEESEEEDREEEEEEEEE 
a 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


é 
FFAASHSESHESESHHEASSESEEEEASESESEASSHOEEEEEEEAEEEEEHAEEEEEEEEEEEEEEEEES 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 

BEQ 140% BR, IF EQUAL (OK) 


INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 


MACRO M1113 0O1-FEB-84 17:54 
658: MOV 0256. ,T26SZ sSET UP RECORD SIZE IN PACKET 
MOV T26CNT , FREE sMOVE TAPE RECORD NUMBER TO BUFFER 
ADD #1, T26CNT sNUMBER READY FOR NEXT RECORD 
MOV R4,TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR,R2 sSET UP EXPECTED 
CMP R1,R2 s;ARE THEY EQUAL 
BEQ 75% sBR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
«WORD 727 
-WORD WRTERR 
-WORD PKTSSR 
75$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
CMP #11.,T26CNT sCHECK NUMBER OF RECORDS WRITTEN 
BEQ 120% sBR, IF AT END OF WRITE SEQUENCE 
1208 BR 65% sWRITE MORE RECORDS 
_— CLR NXMHI ;SET TO 16 BIT ADDRESS 
CLR T26CNT sSET RECORD COUNTER BACK TO ZERO 


CSERHRD 


CsCLP1 


SEQ 251 


TSV7 - HARDWARE TESTS 1-8 


TEST 6: REREADS 


070206 
070210 
070212 
070214 
070216 
070216 
070220 
070224 
070232 


070240 


104456 
001331 
073075' 
015374' 


104406 
012703 


013737 
013737 


011337 


011746' 
104406 


012737 


012702 
020102 


072046' 
003130’ 072032’ 
003132' 072034’ 


072036' 


000002 
003132’ 
003132' 000004 
002212' 


140001 072030’ 


003114' 072032' 
000000 


016150’ 
000002 
000200 


140$: 
MOV 
150$: MOV 
MOV 


CKLOOP 


G4 


MACRO M1113 O1-FEB-84 17:54 


@T26RN,R3 
NXMLO, T26RB 


NXMHI, T26RB +2 


F PAAASAEAHAAHAREESHERAOCASEASEEEEEEEAEEEEAAEEAEEREREEAEEEEEEEEDEOEERESD 


3 
sREREAD DATA,IE,ACK, OPP COMMAND 


‘ 
J PAASAAHAAHEAADEESSASAALESAAESESAAESAEEEAEEEEAREREAEEEEEEEEEEEEDEEED 


MOV CR3), T26PK3 
165$: MOV @T26PK3,R4 
MOV 256. ,T26SZ 
MOV R4,TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV 
CMP R1,R2 
BEQ 170 
BIT CR3),¢BIT9 
BEQ 8$ 
BIT R1,¢BIT1 
BNE 70$ 
168%: 
INC NXMHI 
CMP NXMHI , 04 
BNE 1258 
INC FATFLG 
ERRHRD ERRNO, TO6RRF ,PKTSSR 
170$: CKLOOP 


@SSR!INXM!SC!BIT3,R2 


TRAP CSERHRD 
«WORD 729 
-WORD T26B0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 
sCOMMAND BUFFER ADDRESS 
sSTARTING READ BUFFER ADDRESS 
sSET UP HIGH ORDER ADDRESS BITS 
sREREAD DATA,IE,ACK, OPP COMMAND 


sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sCHECK FOR A READ COMMAND 
:BR, IF IT WAS A READ COMMAND 
sWAS BIT1 SET 

sBR, IF REREAD AND BIT1 SET 


sBUMP TO NEXT ADDRESS RANGE 
sCHECK FOR OVERFLOW 

BR, IF + “ys BITS TO GO 
;BUMP COUN 


iTSSR TNCORRECT AFTER oe DATA 


CSERHRD 
"WORD 730 
-WORD  T26RRF 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLPi 


FFSSSHSSSHAASSSSHSESESEESESHEHESSESEEEEEEEEEEAEASEHESEHAHEEEEEEEHEADEEEEEED 


6 
sREAD DATA, ACK,CVC=1 COMMAND 


6 
F SSSA HASESASASEASEESSEASSHEESESEEEEEADEEHEEEEEDEEEEEEEHEEEEAEEEAEODES 


#140001, T26PK3 


R4, TSDB(RS) 
PC ,WAITF 
TSSR(RS),R1 
SSR ,R2 
R1,Re2 


sREAD DATA, ACK,CVC=1 COMMAND 
sSET SIZE INTO PACKET 

sCLEAR OUT HIGH ADDRESS BITS 
sGIVE READ A GOOD BUFFER 
sISSUE READ DATA COMMAND 
sWAIT FOR SSR 

sPICK UP THE TSSR 

;SET UP EXPECTED 

sIS THE TSSR OK 


SEQ 252 


070472 
070476 
070500 
070504 
070506 
070512 
070512 
070514 
070516 
070520 
070522 
070522 


070552 


001406 
005237 002212’ 
104456 
001333 


005176' 
011746' 


017701 112450 
012702 000001 


005237 002212' 


072066 
015374" 
104406 


004737 010714’ 
103411 
016501 000002 


005237 002212’ 


011746' 
104406 


013701 071730' 
010102 
052702 000002 


06 
005237 002212’ 
104456 


001336 
073075' 


H4 


BEQ 180$ sBR, IF TSSR OK (GOOD) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO,RDERR,PKTSSR sREAD DATA COMMAND FAILED 
TRAP 
. WORD 
. WORD 
. WORD 
180%: CKLOOP sLOOP IF SELECTED mee 
MOV OFREE ,R1 sFIRST WORD FROM READ BUFFER 
MOV #1,R2 sSET UP EXPECTED 
CMP R1,R2 sIS TAPE POSITION CORRECT 
BEQ 190% sKEEP GOING POSITION OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T26WNG,EXPREC ; TAPE POSITION INCORRECT _— 
- WORD 
. WORD 
. WORD 
190$: CKLOOP 
TRAP 


FSSAASEHHSESASASHSSESSASEESESESEAEEEEEEEADEEEOEEEHEKEHEHEEEEEEEEEEEEES 


é 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
J FSAHASSSASHSASSSSESESHESHHESASHSESHSESEEEEEHASHAOASHSEEEEAEEEEEHEEHRESEOEED 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

BCS 194% ;BR, IF NO PROBLEM 

MOV TSSRCRS),R1 ;GET TSSR 

MOV RO,R4 sPACKET ADDRESS SET UP 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T26RWN,PKTSSR ; REWIND NOT ACCEPTED — 
. WORD 
. WORD 
- WORD 

194%: CKLOOP ;LOOP IF SELECTED 

TRAP 


PeCU UII iririririiriiriririiriiriiritiiirittiirTittitittTiiiT tity 
} 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


6 
FFSSESHHEHESSHASHSEEHEEEEESSEESEHEEEEESEESEEEHEESESESESESEHEAEHEEEEEEEOE 


MOV T26BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 196% sBR, IF EQUAL (OK) 

INC FATFLG s;BUMP COUNT 

ERRHRD ERRNO, T26B0T ,EXPREC ; TAPE NOT AT BOT AFTER —— 
. WORD 
. WORD 


CsCLP1 


CSERHRD 
732 
T26WNG 
EXPREC 


CsCLP1 


CsCLP1 


CSERHRD 
734 
T26B0T 


SEQ 253 


14 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 01-FEB-84 17:54 SEQ 254 
TEST 6: REREADS 
070554 015374' WORD EXPREC 
8557 070556 196%: CKLOOP sLOOP IF SELECTED 
070556 104406 nl CSCLP1 
sees 070560 010302 MOV R3,R2 s;SAVE R3 FOR A MOMEN 
8560 PTT LTT iri rir ir iriiiititriritiririiititititiiririiitiitiititi it itt) 
8561 H 
8562 : ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
aeek ;BIT 15 SETS DIRECTION - O=FORWARD 1*=REVERSE 
: 
8565 PeYTrTrir Tri trrirriitiititiirritiviriiiiiiitiititiitiitititiiiititt 
8566 
8567 070562 012703 000001 MOV 01,R3 ;SPACE ONE RECORD 
8568 070566 004737 010366’ JSR PC, SPACE sCALL SPACE ROUTINE 
8569 070572 010203 MOV R2,R3 sRESTORE R3 
8570 070574 005723 TsT CR3)>6 ;BUMP COUNTER 
8571 070576 021327 177777 CMP (R3), 8177777 3ENO OF COMMAND BUFFER YET 
8572 070602 001210 BNE 150$ sMORE COMMANDS KEEP GOING 
8573 070604 200%: 
8574 070604 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
070604 L10117: 
070604 104403 TRAP CsESuB 
8575 070606 023727 002212’ 000017 CMP FATFLG, 15. 3IS ERROR COUNT AT 25 
8576 070614 103402 BLO 999$ ;BR, IF LESS THAN 25 
8577 070616 004737 017104' JSR PC ,CKDROP sTRY TO OROP THE UNIT 
8578 070622 9993: 
8579 
8580 3° 
8581 : 
peat ;TEST 6, SUBTEST 14 
; 
8584 ;VERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE 
8585 sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
8586 ;(REAS REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE 
8587 sPOSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION 
cece ;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 
3 
8590 . 
8591 ; 
8592 i: 
8593 070622 BGNSUB y>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
070622 76.14: 
070622 104402 TRAP Cs8SvuB8 
8594 070624 005003 CLR R3 ;CLEAR TEST COUNTER 
8595 070626 004737 074620’ JSR PC, T26REST 3;SET COMMAND PACKET 
8596 070632 004737 074712’ JSR PC, T26RT2 3SET UP OTHER COMMAND PACKET 
aed 070636 004737 074754' JSR PC, T26RTS ;SET UP OTHER COMMAND PACKET 
oaks PeYY TTT YT ITT iit iti ririritiiriitiitititiiitiriiitritiittitiriiititty | 
o 
aes! ; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
i 
8603 PPevrrrvirirrrrrrrrrrTittrriririitirtiiiititiitiiitiiiiiiiititii iy) 
8604 
8605 070642 004737 015674’ JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
8606 070646 103407 Bcs 20s 36R IF INIT WAS OK 


8607 070650 005237 002212' INC FATFLG sBUMP COUNT 


TSV7 - HARDWARE TESTS 1-8 
TEST 6: REREADS 


8611 
8612 


070700 
070704 
070706 
070712 
070714 
070714 
070716 
070720 
070722 
070724 
070724 


070764 
070770 
070772 


013737 
012704 


002172' 
071700' 


010562’ 
002212' 


010714’ 
000002 
000200 


002212" 


011746' 
104406 


013701 071730' 
010102 
052702 000002 


J4 


MACRO M1113 01-FEB-84 17:54 


SEQ 255 


MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CsEROF 
-WORD 735 
«WORD SFIERR 
-WORD  SFIMSG 
071720' 20%: MOV UNITN, T260SW sSET UP UNIT NUMBER 
MOV @T26PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


J SAAAHAHESHAAHESESESAEEEESALEERESEEEAEREEEREEAAEAASESREEEEEEESEAEDEE 


; 
sWRITE CHARACTERISTICS COMMAND (CALL [0 WRTCHR) 
; 


§ SSHHASAAAAERASEASAAAESESEASAEEAEEEEREREEESEESEEEEAEEESEEESEEEOEEEEEESE 


JSR PC ,WRTICHR sISSUE WRITE CHARACTERISTICS 
BcS 253% sBR, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 


sSAVE CONTENTS OF TSSR 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC os 


25$: CKLOOP ;LOOP IF SELECTED 


TRAP 


J SSAASHHASESASESHEESEAEASEAEASEHEEEEEESEAASAAEEEEEEAEREEEDEEAEEEEEEOE 


é 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FSSSASSHASSHSSSSSSSESSASEAEHESEHREREHEDEEHEEEEEOEEHEEAAEHEEEEEEEHEEEEE 


26%: JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
MOV TSSRCRS),R1 sGET TSSR 
MOV @SSR ,R2 sSET UP EXPECTED TSSR 
6cs 30$ ;8R, IF NO PROBLEM 
MOV RO,R4 sPACKET ADDRESS SET UP 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T26RWN,PKTSSR sREWIND NOT ACCEPTED — 
. WORD 
. WORD 
. WORD 
30$: CKLOOP ;LOOP IF SELECTED 
TRAP 


fPOAESEESEEEEEEESESEEAEEEEDEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEEEDEEEEES 
é 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


: 
FFSSSSASEEHEAEOHEEESESEESEEEEEEEEEESEHEEESEEEEEEEEEEEAEEEDEEEEEAEEEDEEED 


MOV T26BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS oBIT1,R2 ;SET BOT BIT IN EXPECTED 


CSERHRD 
736 


WRTMSG 
SFIMSG 


CsCLP1 


CSERHRD 
737 
T26RWN 
PKTSSR 


CscLPi 


IK4 
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TEST 6: REREADS —— 
8660 070776 020102 CMP R1,R2 ;D0ES EXP = REC'D 
8661 071000 001406 BEQ 40% sBR, IF EQUAL (OK) 
8662 071002 005237 002212’ INC FATFLG BUMP COUNT 
8666 071006 ERRHRD ERRNO, '26B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
071006 104456 TRAP CSERHRD 
071010 001342 . WORD 738 
071012 073075' . WORD T26B0T 
071014 015374' : «WORD EXPREC 
8667 071016 40$: CKLOOP sLOOP IF SELECTED 
071016 104406 TRAP CSCLP1 
8668 071020 012737 000400 072036’ MOV 0256. , T2652 ;SET UP RECORD SIZE IN PACKET 
8669 071026 013737 003114’ 072032’ MOV FREE, T26RB sADDRESS OF READ BUFFER 
8670 071034 005703 TST R3 sCHECK NUMBER OF TIMES THROUGH HERE 
a3) 071036 001404 BEQ 50$ ;BR, IF FIRST TIME THROUGH HERE 
8673 FFASASASAEASSAAAEAESEAEAEESELSEEASAAEAESAEEEEASEHEEEEEAEEASHESEEEEEHREEEEE 
8674 3 
8677 s iabenenbnebnnephdanenbensaetenmenemmateinuneniaianel 
8678 
8679 071040 012737 161001 072030' MOV #161001, T26PK3 sREREAD,CVC=1,ACK COMMAND 
beat 071046 000403 BR 55$ ;SKIP NEXT COMMAND 
os FPSPASAASHAESAASEAESESEEEASEESEAEAEEASEAOESEEEEEEASEHEEEEEEEEEESEEEEDE 
83 ; 
aeons sREREAD,ACK COMMAND 
eat ; eunbenbaneennnenneaseniadenemaeennianneebnnniabenamenenanneneeens 
8688 071050 012737 141001 072070 50$: MOV #141001, T26PK3 ;REREAD,ACK COMMAND 
8689 071056 55$: 
8690 071056 012704 072030' MOV @T26PK3,R4 ;SET UP R& WITH PACKET ADDRESS 
8691 071062 65$: 
8692 071062 010465 000000 MOV R4,TSDBCRS) ; ISSUE COMMAND 
8693 071066 004737 016150’ JSR PC ,WAITF sWAIT FOR SSR TO SET 
8694 071072 016501 000002 MOV TSSRCRS),R1L ;GET TSSR CONTENTS 
8695 071076 012702 100206 MOV @SSR!SC 'BIT1 'BIT2,R2 ;SET UP EXPECTED 
8696 071102 020102 CMP R1,R2 sARE THEY EQUAL 
8697 071104 001406 BEQ 758% ;B8R, IF OK 
8698 071106 005237 002212’ INC FATFLG ;BUMP COUNT 
8702 071112 ERRHRD ERRNO, T26WDE ,PKTSSR :TSSR INCORRECT AFTER READ DATA 
071112 104456 TRAP CSERHRD 
071114 001343 . WORD 739 
071116 073023' . WORD T26WOE 
071120 011746' . WORD PKTSSR 
8703 071122 75$: CKLOOP ;LOOP IF SELECTED 
aves 071122 104406 TRAP CsCLP1 
oor FS PSSSSHEHHSESSESSAASASSEEHESESESESEESESESESEESESEASEESASEEEEEEEHAEDESHEEEEOD 
: 
ted sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
ta a eT eT 
1 
8711 071124 013701 071730' MOV T26BFR+6,R1 ;GET XSTO STATUS WORD 


8712 071130 010102 MOV R1,R2 sSET UP EXPECTED 


TSV?7 - HARDWARE TESTS 1-8 


TEST 6: 


8713 
8714 
8715 
8716 
8720 


REREADS 


071132 
071136 
071140 
071142 
071146 
071146 
071150 
071152 
071154 
071156 
071156 
071160 
071162 
071164 
071164 
071164 
071166 
071174 
071176 
071202 


071202 
071202 
071202 
071204 
071210 
071214 
071220 


071224 
071230 
071232 
071236 
071240 
071240 
071242 
071244 


052702 002000 
020102 
001406 
005237 002212’ 


072154" 
015374' 


104406 
005103 
001261 


104403 
023727 002212’ 
103402 
004737 017104' 


104402 

005037 072060’ 
004737 074620' 
004737 074712' 
004737 074754: 


004737 015674' 
005237 002212’ 


L4 
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BIS #BIT10,R2 
»R2 


INC LG 
ERRHRD ERRNO, T26NEF ,EXPREC 


1708: CKLOOP 


COM R3 

BNE 26% 

ENOSUB 

CMP FATFLG,@15. 
BLO 999% 


JSR PC ,.CKDROP 
999$: 


3¢ 


3 
sTEST 6, SUBTEST 15 


* 
sVERIFIES THAT REREAD PREVIOUS WITH OPP=1 


sSET THE NEF BIT 

sARE THEY EQUAL 

sBR, IF EQUAL (GOOD) 

sBUMP COUNT 

sNEF SHOULD BE SET 
TRAP CSERHRD 
«WORD 740 
«WORD T26NEF 
-WORD  EXPREC 


TRAP CsCLP1 
sRESET THE SWITCH 
sBR, IF FIRST TIME THROUGH HERE 
L10120: 
TRAP 
sIS ERROR COUNT AT 25 


;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


CsESUB 


(SPACE 


sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1 
;CREAD REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE 
sPOSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT 
sNOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH 
;THE REVERSE INTO BOT (RIB) STATUS BIT SET. 


BGNSUB 

CLR T26CNU 
JSR PC, T26REST 
JSR - PC, T26RT2 
JSR PC, T26RTS 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
76.15: 


TRAP CsBSUB 
;CLEAR OUT COUNTER 
3SET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 


J SSAHHAHSEASHASSESSSSEAHEEHEBESEHESESEEEEEEESEHEEEAEESEAEHEEEEEEEEEEOE 


3 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


; 
F FSSESASSEESSEHEESESSESESESESESESEESESHESEEEEEEESEEAEHESEHASEEEEEEEEEREOEED 


JSR PC,SOF INIT 
BCS 20% 

INC FATFLG 
MOV 


RO,R1 
ERROF ERRNO,SFIERR,SFIMSG 


300 INITIALIZE y * CONTROLLER 
;BR IF INIT WAS OK 
sBUMP COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 


“WORD SFIERR 


SEQ 257 


4 
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TEST 6: REREADS 1-FEB-84 17:5 SEQ 258 
071246 011734' . WORD SF IMSG 
pe 071250 013737 002172' 071720' 20%: MOV UNITN, T260SW 3SET UP UNIT NUMBER 
6 
aN 071256 012704 071700' MOV #T26PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
8768 FPARAAAAAAAAAEEEEEEAAEAEAEERAERERAEEREEEREEEEEREREEEEAEREEEEAAEEEEE 
8769 ; 
tha ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
i 3 
8772 FRRAARAAEAAREREAEEADARAERERAREAAEERAAREAREAEEEREEAESEEEEEEEEEEEEE EE 
8773 
8774 071262 004737 010562' JSR PC, WRTCHR s ISSUE WRITE CHARACTERISTICS 
8775 071266 103407 BCS 25$ ;BR, IF COMMAND ISSUED OK 
8776 071270 005237 002212' INC FATFLG ;BUMP COUNT 
8780 071274 010001 MOV RO,R1 3SAVE CONTENTS OF TSSR 
8781 071276 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
071276 104456 TRAP CSERHRD 
071300 001346 . WORD 742 
071302 005046' WORD WRTMSG 
071304 011734’ WORD SF IMSG 
8782 071306 258: CKLOOP ;LOOP IF SELECTED 
8783 071306 104406 TRAP CSCLP1 
8784 FRRAERARRAREESAREESSASEEREAAASERERAAEAEAEAEEEAEREEEEESAEEEEEEEEEEEEE 
8785 ; 
Beet ; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
the + peeeosencccscocascaseasaccsecsccesoosenceseosnseoonscosecesonse£s 
9 
8790 071310 004737 010714' 26%: JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 
8791 071314 016501 000002 MOV TSSRCRS),R1 ;GET TSSR 
8792 071320 012702 000200 MOV @SSR ,R2 ;SET UP EXPECTED TSSR 
8793 071324 103407 bcs 30$ ;68R, IF NO PROBLEM 
8794 071326 010004 MOV RO,R4 ;PACKET ADDRESS SET UP 
8795 071330 005237 002212’ INC FATFLG ;BUMP COUNT 
8799 071334 ERRHRD ERRNO, T26RWN,PKTSSR }REWIND NOT ACCEPTED 
071334 104456 TRAP CSERHRD 
071336 001347 .WORD 743 
071340 073364’ . WORD T26RWN 
071342 011746' . WORD PKTSSR 
8800 071344 305: CKLOOP ;LOOP IF SELECTED 
e801 071344 104406 TRAP CSCLPL 
oes fF PARHOAAHASAEHAEEHSEREESAAESOSEAESEEEESEAESEEEAEESAEEEESEEESEEDEEES 
H 
oes ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
ey | Soeneenecenesccsccscosscscassescnscoossosonsonssescesonscoesecceese 
8808 071346 013701 071730' MOV T26BFR+6,R1 ;PICK UP XSTO 
8809 071352 010102 MOV R1,R2 ;SET UP EXPECTED 
8810 071354 052702 000002 BIS #BIT1,R2 ;SET BOT BIT IN EXPECTED 
8811 071360 020102 CMP R1,R2 ;00ES EXP = REC'D 
8812 071362 001406 BEQ 40$ ;BR, IF EQUAL (OK) 
8813 071364 005237 002212’ INC FATFLG ; BUMP COUNT 
8817 071370 ERRHRD ERRNO, T26B0T ,EXPREC TAPE NOT AT BOT AFTER De 


071370 104456 RAP CSERHRD 


N4 
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TEST 6: REREADS 
071372 001350 .» WORD 744 
071374 073075' . WORD T26B80T 
071376 015374' . WORD EXPREC 
8818 071400 40$: CKLOOP 
— 071400 104406 TRAP CSCLP1 
8820 fF PAMAAAREAAREAEEES EAAEREAEREEAAREAAREREEEEEAEEEEREAEREEEEEEEEEREDEE 
8821 : 
8822 ; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
Hy ;BIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 
8825 — | chain eednEeenensaneenbanhanesedbbaniaennatititis 
8826 
8827 071402 012703 000001 MOV #000001 ,R3 ;SET UP SPACE FORWARD 1 RECORD 
8828 071406 004737 010366' JSR PC, SPACE :; ISSUE SPACE COMMAND 
8829 071412 103411 BCS 75$ ;BR, IF OK 
8830 071414 016501 000002 MOV TSSRCRS),R1 ;GET STATUS DATA 
8831 071420 010004 MOV RO,R4 ;GET PACKET ADDRESS 
8832 071422 005237 002212’ INC FATFLG ;BUMP COUNT 
8836 071426 ERRHRD ERRNO, T26WDE ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
071426 104456 TRAP CSERHRD 
071430 001351 . WORD 745 
071432 073023’ . WORD T26WDE 
071434 011746' . WORD PKTSSR 
8837 071436 75$: CKLOOP ;LOOP IF SELECTED 
see 071436 104406 TRAP CSCLP1 
coon f PARAEEEAERESASEEEEDEDEEEREEEAEREAEEEESEEAEREDEEEREDEREREREDEEERERES 
0 3 
8841 ; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
oeek ;BIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 
oem | eanienabasibennsthhebasebnedibbihibeneainesentnantonhietnneunh 
8846 071440 012703 100001 MOV #100001 ,R3 ;SET SPACE REVERSE 1 RECORD 
8847 071444 004737 010366’ JSR PC, SPACE ; ISSUE COMMAND 
8848 071450 103411 6cs 175$ ;GO ON IF ALL IS WELL 
8849 071452 016501 000002 MOV TSSRC(RS),R1 ;GET TSSR CONTENTS 
8850 071456 010004 MOV RO,R4 ;SET UP eee ree (PACKET CONTENTS) 
8851 071460 005237 002212’ INC TATFLG sBUMP COUN 
8855 071464 ERRHRD ERRNU, T26WDE ,PKTSSR i TSSR ENCORRECT AFTER READ DATA 
071464 104456 TRAP CSERHRD 
071466 001352 . WORD 746 
071470 073023' .WORD T26WDE 
071472 011746' . WORD PKTSSR 
8856 071474 175$: CKLOOP ;LOOP IF SELECTED 
071474 104406 TRAP CSCLP1 
8857 071476 013737 003114' 072032’ MOV FREE, T26RB sADDRESS OF BUFFER 
8858 071504 005737 072060’ TST T26CNU sCHECK FOR TIMES THROUGH HERE 
ont 071510 001404 BEQ 176$ ;BR, IF FIRST TIME THROUGH 
et Pe TTT ITI TIT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTTTTTT TTT TTT 
3 
ooee sREREAD (PREVIOUS), IE,ACK,OPP=1 CMD. 
8865 Ae Ea ee NT NT SN IO Se eee 
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6: REREADS 


071512 
071520 


071656 


071656 
071662 
071664 
071670 
071670 
071670 


012737 
000403 


012737 


073023' 
011746' 


104406 
013701 


072154’ 
015374: 


104406 
005137 
001224 


104403 
023727 
103402 
004737 


161001 072030' 


{ 


141001 072030' 
072030' 
000000 
016150' 


000002 
100204 


002212’ 


072060’ 


002212’ 000017 
017104' 


016360' 
0554 74° 


MOV 
BR 


BS 


MACRO M1113 01-FEB-84 17:54 


#161001, T26PK3 
1788 


sREREAD (PREVIOUS), IE,ACK,OPP=1 CMD. 
sSKIP NEXT COMMAND 


FOPASOOOSEEAEEEEEEOEEEAEAEOEDEEEEESEEEEOEOEEEEEEESEOREDEDOOEOEOOOES 
3 
sREREAD ,ACK,OPP=1 COMMAND 
a 


EFSSSHAASSHHSHASHESOESESSHHOEEEEHOOEHSEHEHEASEEHESEESEEEHEEEEEEOEEEOEEEEE 


1768: MOV 
1788: 


180%: CKLOOP 


1908; CKLOOP 


163%: 


#141001, T26PK3 


TSSRCRS),R1 
@SSR!ISC!BIT2,R2 
1,R2 


180% 


FATFLG 
ERRNO, T26WDE ,PKTSSR 


La Ait 


@BITO,R2 


FATFLG 
ERRNO, TO6NEF ,EXPREC 


T26CNU 
26% 


FATFLG,@15. 
999% 
PC ,CKDROP 


PC, TST_OOP 
1638 
T26L00P 


TST 


sREREAD ,ACK,OPP*1 COMMAND 


sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

;B8R, IF OK 

sBUMP COUNT 

sTSSR INCORRECT AFTER see * gees 


«WORD 747 

-WORD T26WDE 
-WORD PKTSSR 
TRAP CsCLP1 


sLOOP IF SELECTED 
sGET XST3 STATUS WORD 


s68R, IF EQUAL (GOOD) 
sBUMP COUNT 
sNEF SHOULD BE SET 


TRAP CsCLPL 
:SET SWITCH THE OTHER WAY 
3BR, IF FIRST TIME THROUGH 
g>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10121: 
TRAP CsESUB 
sIS ERROR COUNT AT 25 
26R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


300 WE NEED TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP CSExItT 


CSERHRD 


SEQ 260 


TeSy “eT*ABRERBTESTS 1-8 


071672 


071674 
071700 
071700 
071702 
071704 
071706 
071710 
071710 
071712 
071714 
071716 
071720 
071722 


072004 
072010 


003112 


014004 
071710" 
000000 


000012 
071722' 
000000 
000024 
000000 
000000 


072040' 


140005 
003114' 
000000 
000000 


140001 
141401 
161401 
177777 


000000 
000000 


C5 
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3? 
sLOCAL STORAGE FOR THIS TEST 


.BLKB 
T26PACKET: 


T260SW: .WORD 
T26BFR: .BLKW 


a 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


T26PK2: 
WORD 
. WORD 
. WORD 
WORD 
o BLKB 
T260PK3: 
. WORD 
T26RB: 
T26WB: .WORD 
. WORD 
T26SZ: .WORD 
EVEN 
3 
3 
3 
T26BF 2: 


12653: .WORD 
: 
a 


EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T26RN: .WORD 


3 
T26CNT: .WORD 
T26CNU:; . WORD 


10-<, -TSV2E7> 


14004 
 anmaaten: 


10. 
T26BFR 
.°) 

20. 

0 

te) 

25. 


10-<. - TSV2E7> 


100006 
T268F 2 


0 

6. 

10-<, -TSV2E7> 
140005 

FREE 


140001 
141401 
161401 
177777 


oo 


«WORD L10102-. 


sCOMMAND PACKET FOR TEST 


SEQ 261 


sWRITE CHARACTERISTICS COMMAND, WITH CvC#i, ACK 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE O 
sMESSAGE BUFFER 


sWRITE SUB S’S MEM COMMAND, AND ACK 
sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, CvC*1 AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


3B8SELO AREA 
3B8SEL1 AREA 
3SEL 2 AREA 
sDATA AREA 


sREAD DATA 

sREREAD NEXT OPP=0 
sREREAD NEXT OPP=1 
3END OF DATA 


s+ TAPE RECORD COUNTER STORAGE AREA 
s TAPE RECORD COUNTER STORAGE AREA 


FBS“ eI*BPHERESTESTS 1-8 


6979 
8980 


072062 
072064 


074620 
074620 
074624 
074630 
074634 
074640 
074642 
074646 


000000 
000000 


012701 
012721 
012721 
005021 
012721 
012721 


1 
071710' 


000012 
071722' 


D5 
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T26RS2Z: 
T260LY: 


. WORD 
. WORD 


te) sRECORD STORAGE SIZE AREA 


0 sDELAY COUNTER AREA 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


T26NEQ: 


TST26ID: 


-EVEN 


‘Tape Position Incorrect After REREAD Previous (OPP=1)' 
‘REREAD PREVIOUS, At BOT, Failed To Set NEF (xSTO): 
‘TSSR Incorrect After READ DATA Command’ 


"REREAD Previous (Space Reverse, Read Forward) Command Fai led’ 
"REREAD Previous (Read Reverse, Space Forward) Command Failed’ 


‘POSITION (Space Command) Feiled, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

‘TSSR Not Correct After Illegal Mode Bits Set’ 

‘Tll 1 Mode Bits. Failed To Set ILC Bit In xSTO’ 
‘REREAD COMMAND Not Accepted’ 

*TSSR Not Correct After WRITE DATA Command’ 

‘Tape Not At BOT After REWIND Command’ 

‘Dete Written To Tape Not Equel To Detea Read From Tape’ 
‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
‘TSSR Not Correct After REREAD COMMAND Re ject’ 
‘Rewind (POSITION) Command Not Accepted’ 

‘RAM Error, Correct Date Pattern Not In Ram’ 

‘TSSR Init. Failed After REREAD C ‘i 

‘Drive 7 Select Failed To Set “OFL” In TSSR’ 


*TSSR Not Correct After REREAD DATA Command, SWA Bit Set’ 


‘TSSR Not Correct After REREAD DATA Command’ 
‘CvC Set. Didn’''t Reset VCK In Mes Buf fer’ 
‘TSBA Not Correct After REREAD DATA Command’ 


‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 


"Reading Long Record Failed To Set RLL Bit In xSTO’ 


‘Reading Lene Record Failed To Set RLS Bit In xSTO’ 
‘Residual Byte Count Incorrect After Short Record Read’ 
*Readi Long Record Failed To Give Tape Status Alert’ 


‘Date REREAD From Tape Not Correct, After SwB=-1' 
-ASCIZ ‘Rereads' 


: 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T26REST: 


sSAVE THE REGISTERS 


@T26PACKET ,R1 sSTART OF THE PACKET 
140004 ,(R1)> sWRITE SUBSYSTEM MEM, WITH ACK, CvC-l 
OT26DATA,C(R1)> sADDRESS OF CHARAISTICS DATA BLOCK 


CR1)+ sEXTENDED ADDRESS 
#10. ,(R1)-> sSIZE OF DATA BLOCK IN BYTES 
OT26BFR,(R1)+ sADDRESS OF MESSAGE BUFFER 


SEQ 262 


TSV7? - HARDWARE TESTS 1-8 
REREADS 


TEST 6: 


074710 


C74712 
074712 
074716 
074722 
074726 
074732 
074734 
074740 
074742 
074746 
074750 
077°S2 


012721 


012737 


000024 


000000 
000030 
177777 


000000 


072010' 


006256‘ 
003124’ 
017176’ 
104643’ 
016412' 
000005 


101706' 
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071722" 


002170' 


002206" 


CLR CR1)> 

MOV 20.,(R1)> sLENGTH OF MESSAGE BUFFER 

CLR (R1)-> 

MOV 00,(R1) sSELECT DRIVE ZERO (0) 

MOV 924, ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
64%: MOV 0177777, T26BFRCR2) sALL ONES TO MESSAGE BUFFER 

TST -C(R2) sNEXT LOCATION 

CMP R2,00 sCHECK FOR END OF LOOP 

BNE 643% sKEEP GOING UNTIL DONE 

RTS PC sRETURN 
T26RTe: 

SAVREG sSAVE THE REGISTERS 

MOV @T26PK2,R1 sSTART OF THE PACKET 


MOV #140006 ,(R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK,CvC=1, 


MOV @T26BF2,(R1)> sADDRESS OF DATA BLOCK 
CLR CR1)+ sEXTENDED ADDRESS 
MOV 06. ,.(R1)+ sSIZE OF DATA BLOCK IN BYTES 
CLR (R1)> 
MOV @T26BF2,R1 sPOINT TO DATA SEL AREA 
CLR CR1i)> 
CLR (R1) 
RTS PC sRETURN 
T26RT3: 
SAVREG sSAVE THE REGISTERS 
MOV @T26PK3,R1 sSTART OF THE PACKET 
MOV @0,(R1)> sWRITE SUBSYSTEM MEM. WITH ACK, 
MOV 00,(R1)> sADDRESS OF DATA BLOCK 
CLR CR1)> sEXTENDED ADDRESS 
MOV @0,(R1) sSIZE OF ‘DATA BLOCK IN BYTES 
RTS PC sRETURN 
ENOTST 


L10102: 
TRAP CsETST 


-SBTTL TEST 7: WRITE DATA RETRY 
3¢ 


° 

sTHIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 

; 

i 

;THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 

3 


BGNTST a 

MOV GEPRT2,EPRTSW sSECONDARY ERROR MESSAGE 

CLR K TENABLE sTURN OFF KT11 

JSR PC ,.KTOFF sTURN KT11 BACK OFF IF THERE 
MOV @TST27ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP s00 INITIAL TEST SETUP 

MOV @S,LOOPCNT sPERFORM S ITERATIONS 


CLR T27CNT sCLEAR TAPE RECORD COUNTER 


SEQ 265 


TSV7 -_ HARDWARE TESTS 
TEST 7: WRITE DATA RETRY 


004737 
103426 


012727 
000000 


104664' 
104756’ 
105020' 
176750 

101706' 


015674' 


000250 
002116' 
177772 
177756 
101712’ 
002212' 


002172’ 
101530’ 


101712’ 


101550’ 


FS 
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3¢ 
3 
sTEST 7, SUBTEST 1 
3 
iy 
;VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
;THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
3; TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF ) 
sERROR BIT SET. 
; 
3 
g* 
T27LO0P: 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T7.1: 
TRAP CsB6SuUB 
JSR PC, T27REST 3;SET COMMAND PACKET 
JSR PC, T27RT]2 ;SET UP OTHER COMMAND PACKET 
JSR PC, T27RT3 ;SET UP OTHER COMMAND PACKET 
MOV 65000. , T27D0LY sSET UP DELAY COUNTER 
CLR T27CNT ;CLEAR COUNTER 
FOMAAHSAHHAHSAAAAEHESHAEHEEEEAEEEEAASCASHESAESASEEEEAEEDEEEEEEEEROEOREE 
3 
s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
H 
FOPRAAAAAAASASEASELOHOAEASESASEEEEEEAEEEHAEEAEAEREHASEEEEEREDEREOEE 
10$: JSR PC,SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 203 ;BR IF INIT WAS OK 
DELAY 250 sDELAY ABOUT .25 SEC 
MOV #250,(PC)>+ 
- WORD t?) 
MOV LSOLY,C(PC)- 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .--20 
DEC T270LY ;BUMP COUNTER 
BNE 10$ ;BR, IF COUNTER NOT OONE 
INC FATFLG ;BUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. WORD 70 
. WORD SF IERR 
a wORD SF IMSG 
20%: MOV UNITN, T270SW 4 ;SET UP DRIVE NUMBER 
MOV @T27PACKET ,R4 ‘ sSUBROUTINE NEEDS PACKET ADDRESS 


prcrneeesaenemonmaenenmennnene seenenatenamaeneeieeininiee 
sWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


» saiiatiehesinapaiidpeidanidemneiounesiiaadhiidiiiy PYYTTTTTITITTTTTUTTTTTTTTT TT TTT TTT TTT 


SEQ 264 


Ts 
Te 


V 
S 


T 


9140 
9141 
9142 
9143 
9147 
9148 


TE DO 


075172 
075176 


075216 


075244 


075246 


075302 
075310 


+ 7 URITE DATA Re tre 


004737 010562' 
103407 
005237 002212’ 


004737 010714’ 
103407 


010004 
005237 002212’ 


104456 
001277 
103065 ' 
011746' 


104406 


013701 101560' 
010102 
052702 000002 


005237 002212’ 


102561' 
015374’ 


104406 
012737 000400 
013737 003114' 


GS 
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JSR PC,WRTICHR sISSUE WRITE CHARACTERISTICS 
BCS ess 3BR, IF COMMAND ISSUED OK 
INC FATFLG s BUMP COUNT 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG ;WRITE CHARACTERISTISC F —- 
. WORD 
. WORD 
. WORD 
253: CKLOOP ;LOOP IF SELECTED 
TRAP 


F SAAAAHHESEAAAASASASEREESEEEEAEESESESEEEEEEAEESAEEHEEEEEEEEEEEDEEEEEE 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
j doeconesoneennsennsonscosssssoonscesonsseecosacesessesononseeses 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 


BcS 30$ ;BR, IF NO PROBLEM 

MOV RO,R4 ' sSET UP REWIND PACKET ADDRESS 
INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T27RWN, PKTSSR sREWIND NOT ACCEPTED — 
. WORD 
. WORD 
; . WORD 

30$; CKLOOP sLOOP IF SELECTED 
; TRAP 


YTUTTUTOTTT TTT TTT TTTTTT TT OTT TTT TTT TTOTTTTTT TTT TTT T TT TTT TTT TTT TTT 
: 

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

3 
fPPASSASSAEEEEEAEEEEESEEEEEEEEEEEEEEAEEEEEEEEREEDEREEEERESEEEEOEEEE 


MOV T27BFR+6,R1 sPICK UP xSTO 


MOV R1,R2 ; sSET UP EXPECTED 
BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 ; sD0ES EXP = REC'D 
BEQ 40% sBR, IF EQUAL (OK) 
INC FATFLG ; ;BUMP COUNT 
ERRHRD ERRNO, T27B0T ,EXPREC ; TAPE NOT AT BOT AFTER — 
. WORD 
. WORD 
. WORD 
40$: CKLOOP sLOOP IF SELECTED — 
101666' MOV 256. ,T27SZ sSET UP RECORD SIZE 


101662‘ MOV FREE, T27wB sADDRESS OF WRITE BUFFER 


PETITITITITIIITITVIVITIVITITITITITITITITITITITITITITIT ITT TT TT TTT TTT 


3 * 
sWRITE DATA RETRY,ACK,CVC=1 COMMAND. 
; 


CsCLP1 


CsCLP1 


CSERHRD 
704 


T2780T 
EXPREC 


CSCLPL 


“0 


SEQ 265 


TEST” 7T*URTTE DATA Retay 


075370 


012737 
012704 


011746' 
104406 


013701 


104231' 
015374’ 


104406 


104403 
023727 
103402 
004737 


141005 101660°' 


101660' 
000000 
016150’ 
000002 
100206 


002212’ 


101560' 
002000 


002212’ 


002212' 
017104' 


H5 
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000017 


MPITITITIVITTiiirriiiiiriiiiriitrirtiiiiiiiiiiiiiiiiiivititTiTiTiTitity 


758: 


INC 
ERRHRD 


CKLOOP 


#141005, T27PK3 
@T27PK3,R4 

R4, TSOBCRS) 

PC ,WAITF 

TSSR(RS),R 
eSsh!SCHBT11:6172,8 R2 


75$ : 
FATFLG ; 
ERRNO, T27WOE ,PKTSSR 


sWRITE DATA RETRY,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

;8R, IF OK 

BUMP COUNT 

iTSSR INCORRECT AFTER a — 


TORO 
:WORD T27WOE 
«WORD PKTSSR 


TRAP CsCLP1 


;LOOP IF SELECTED 


FSPSHASAAHSSSSSSSAASSESSSAEESEHEEEEEASEEEEESEHESHEEEESEHEEAELEREEOE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


a : 
§ SSOSSHEAHESASESESEHESEEEESESEESEEEADEESESESEDESESEESESESESEESEEEOOEE 


1708: 


999%: 


3¢ 


T27BFR+6,R1 
R1 


LG 
ERRNO, T27NEF , EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


; 
sTEST 7, SUBTEST 2 


3 . 

sVERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE 
sTHE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 
sTAPE (BUT-NOT 
; TERMINATION, WITH THE REVERSE INTO 80T (RIB) STATUS 
sERROR BIT SET. 


sGET XSTO STATUS WORD 
;SET UP EXPECTED 

sSET THE NEF BIT 

sARE THEY EQUAL 

BR, IF EQUAL (GOOD) 
s;BUMP COUNT 


SNEF SHOULD BE SET 
TRAP CSERHRD 
706 


-WORD T27NEF 
-WORD  EXPREC 


TRAP CSCLP1 
110123: 3 
:IS ERROR COUNT AT 25 


:BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


CsESUB 


AT BOT) RESULTS IN TAPE STATUS ALERT 


SEQ 266 


TSV7 -_HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


9242 
9243 
9244 


075514 


075520 
075524 
075526 
075532 
075534 
075534 
075536 
075540 
075542 
075544 
075544 


075546 
075552 
075554 
075556 
075562 
075566 


004737 104664' 
004737 104756’ 
004737 105020’ 


004737 015674' 
005237 002212' 


013737 002172' 
012704 101530’ 


004737 010562’ 
005237 002212’ 


004737 010714' 
103411 
010004 
016501 000002 
005237 002212’ 


[5 
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101550’ 


‘ BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
77.2: 
TRAP Cs6SuUB8 
“JSR PC, T27REST 3SET COMMAND PACKET 
JSR PC, T27RT2 ;SET UP OTHER COMMAND PACKET 
JSR PC,T27RT3 ;SET UP OTHER COMMAND PACKET 
FARAAHAREEESESEAEEEEEADEEEREREEAREREDAREEEADEREDARASERADEEAEEDALES 
; 
; ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
saree enneeremeenenanbetee 
JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
BCS 20$ ;8R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1L ; sCONTENTS OF TSSR REGISTER 
ERRDOF ERRNO, SFIERR,SFIMSG ©: ;FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
WORD 707 
-WORD SFIERR 
-WORD SFIMSG 
20%: MOV UNITN, T270SW :SET UP DRIVE NUMBER 
MOV @T27PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
PET UTITT TTT ITT TTT TTT TTT TitrTitTitrTrittitri tivity TirTitirirtTTTrTirTiTyTTtTTtty 
7 
sWRITE CHARACTERISTICS COMMAND (CALL. TO WRTCHR) 
| Ocenreneteame mn OdeREdD been EbeNnemnentnteiettd 
JSR PC,WRTCHR ; ISSUE WRITE CHARACTERISTICS 
bcs 253 ;8R, IF COMMAND ISSUED OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
. WORD 708 
-WORD WRTMSG 
-WORD SFIMSG 
25%: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLPl 


PPV PPO riviriviriiiiiiiitiriitiiiitrriritittiiiititty 
é 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
FSFASSAEHEESEESASEEESESEHEAESHEAESESAEEEEEEEESEEAAESEEHASEEHEEEESEEEEESED 


JSR PC ,REWIND sCALL TAPE ony B COMMAND 
BCS 26% ;BR, IF NO PROBLE 

MOV RO,R4 :SET UP REWIND PACKET ADDRESS 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 


INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T27RWN,PKTSSR sREWIND NOT ACCEPTED 


SEQ 267 


TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


075566 
075570 
075572 
075574 
075576 
075576 
075600 
075604 


075672 
075676 
075700 
075704 
075706 
075712 
075712 
075714 
075716 
075720 
075722 
075722 


104456 
001305 
103065’ 
011746' 


104406 
012703 000400 
013737 003114’ 


012737 140005 
012704 101660' 
010337 101666’ 
010465 000000 
004737 016150’ 
016501 000002 
012702 000200 
020102 

001406 

005237 002212’ 
104456 

001306 

005103' 

011746’ 


104406 


004737 010714' 
034 


0004 
005237 002212’ 


104456 
001307 
103065’ 
011746’ 


104406 


J5 
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TRAP CSERHRD 
709 


“wORD T27RWN 
"wORD PKISSR 


26%: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 
MOV #256. ,R3 sSTARTING RECORD SIZE 
101662’ MOV FREE , T27WB sSTARTING WRITE BUFFER ADDRESS 
PeUT IIIT iti itirrttitiiiitiiriiitititiiiiiiitiiiiriiititiiiitiiiiii tr) 
; 
;WRITE DATA,CVC*1,ACK COMMAND : 
i 
{POSSE AAEEAEEEEEEEEEEEEEREREEESEEEAEAEEESEEEEDEDEEEEEEEEEEEEEREOEE 
101660' MOV #140005, T27PK3 sWRITE DATA,CVC=1,ACK COMMAND 
MOV @T27PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R3,T27SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC, ,WALTF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 ;GET TSSR CONTENTS 
MOV @SSR,R2 sSET UP EXPECTED 
CMP R1,R2 s;ARE THEY EQUAL 
BEQ 283 3BR, IF OK 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO,WRTERR,PKTSSR iTSSR INCORRECT AFTER wa © ee 
TRA CSERHRD 
"WORD 710 


“WORD WRTERR 
«WORD PKTSSR 


TRAP CscLP1 


283: CKLOOP ;LOOP IF SELECTED 


FPSSASRAHSSSSSSSHAHSHASSSEESEESHSEASESESEEEHESEEASSEESEESESEEEKESEESED 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


5 
FPSSSSHSSSSASESSESSSESHSHSEHEEHHSHHEHEEEEEHESEEEEEHEAEHEEEEESESEEESESEESD 


JSR PC ,REWIND ;CALL TAPE REWIND COMMAND 

Bcs 30$ ;B8R, IF NO PROBLEM 

MOV TSSR(RS),R1 3GET TSSR CONTENTS 

MOV RO,R4 ;SET UP REWIND PACKET ADDRESS 

INC FATFLG ;BUMP COUNT 

ERRHRD ERRNO, T27RWN,PKTSSR + REWIND NOT ACCEPTED 
TRAP CSERHWRD 
. WORD 711 
. WORD T27RWN 
. WORD PKTSSR 

30$: CKLOOP ;LOOP IF SELECTED 


TRAP CscLPl 


FFPHOSASSHASASSESHESESEHSESEHSHSESESHEESESESESSHESHESEHSEFESEHSEEEHEESESEEHEHRSEEESS 


: 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSf0) 


3 
POSSESS SSHESSSESSESEEEEEHHE AEs SESESSHEHHHAESESSESSSEAESESESHEEHEHEEHEEED 


SEQ 268 


TSv?7 - 
TEST ?: 


9396 


HARDWARE T 


WRITE DATA REtRe 


075724 
075730 
075732 
075736 
075740 
075742 
075746 
075746 
075750 
075752 
075754 
075756 
075756 


075760 


ep dpe: 101560' 


06 
005237 002212’ 


104456 
001310 
102561' 
015374' 


104406 


012703 000001 
004737 010366’ 
103413 


0004 
005237 002212’ 


104456 
001311 
104327' 
011746’ 


104406 


012703 100001 
004737 010366’ 
103413 

016501 000002 
012702 000200 
010004 

005237 002212’ 


104456 
001312 
104327' 
011746’ 


MACRO M1115 


40$: 


KS 
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MOV T27BFR+6,R1 

MOV R1,R2 

BIS #BIT1,R2 

CMP R1,R2 

BEQ 403 

INC FATFLG 

ERRHRD ERRNO, T27B0T ,EXPREC 
CKLOOP 


sPICK UP XSTO 

sSET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

36R, IF EQUAL (OK) 


;BUMP COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 712 
-WORD T27B0T 
«WORD EXPREC 
;LOOP IF SELECTED 
TRAP CsCLP1 


J SPSASAAHSAASEASEHASASEAEEASEASEEEASEAEAEAEEEAESEEHREEALESEEASEEEEEEE 


3 
s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 


3 
J SAAAHHAAAHASHSSSSSAHASEASAAEEEEEEEESEEAEEEEREEEEEEEREEEEEEEEDEEEEEED 


50$: 


#1 oR3 
PC, SPACE 
50s 
TSSRC(RS),R1 
@SSR,R2 
RO,R4 
FATFLG 
ERRHRD ERRNO, T27SCF ,,PKTSSR 


CKLOOP 


1*REVERSE 


sPARAMETER SPACE FORWARD 1 RECORD 
sCALL SPACE RECORDS ROUTINE 

sBR, IF NO ERRORS 

;GET TSSR CONTENTS 

sSET UP EXPECTED 

2 ye ae PACKET ADDRESS 


UMP C 
sSPACE RECORDS COMMAND Any 


CSERHRD 
-WORD 713 
-WORD T27SCF 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


J SSSSHASHASHSESSESHASEESSAAEESHEASEAESHASEEEESESEEEEEEHAEEEEHEEEEEESEEEDE 


; 
sISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
sBIT 15 SETS DIRECTION - O=FORWARD 


3 
FPSSSHHSHHSHSSSHESESHESSSESSSSEHESEEEEESSESEEASEHESHEEAAKEEESESESEEOHEKRERES 


60$: 


MOV #100001,R3 
JSR PC, SPACE 
BCS 60$ 

MOV TSSRCRS),R1 
MOV @SSR ,R2 
MOV RO,R4 

INC ATFLG 


F 
ERRHRD ERRNO, T27SCF ,PKTSSR 


CKLOOP 


1 =REVERSE 


sPARAMETER SPACE REVERSE 1 RECORD 
sCALL SPACE RECORDS ROUTINE 

sBR, IF NO ERRORS 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sSET UP REWIND PACKET ADDRESS 
BUMP COUN 


Fy T 
;SPACE RECORDS COMMAND FAILED 


TRAP CSERHRD 
. WORD 714 

. WORD T27SCF 
-WORD PKTSSR 


sLOOP IF SELECTED 


SEQ 269 


TSV7 -_HARDWARE TESTS 1-8 


TEST 7; WRITE DATA RETRY 


076062 
076064 


076072 
076100 
076106 
076112 
076116 
076122 
076126 
076132 
076134 
076136 
076142 
076142 
076144 
076146 
076150 
076152 
076152 
076154 
076160 
076162 
0/6166 
076170 
076172 
076176 
076176 
076200 
076202 
076204 
076206 
076206 
076210 
076210 
076210 
076212 
076220 
076222 
076226 


104406 
013737 


012737 
012737 


104404' 


104231’ 
015374' 


104406 


104403 
023727 
103402 
004737 


003114' 101662’ 


MOV 


Be 
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FREE, T27RB 


TRAP CsCLP1 


sADDRESS OF BUFFER 


FPAASAAHHHHEEHEAAHEEEEEAEEAEAEOEASEEEEEEESEEEEEEEEEEAREAERESEEEDEREESE 


; 
sWRITE DATA RETRY,ACK,CVC=1 COMMAND 
é 


J PSSAAASHSHAAAAEHHSEESEAAAEAEAEEEASEESESASESEEEEEEEEEAEEEEEEEREDEEES 


101660’ 


141005 
000400 101666’ 


101660' 
000000 
016150' 
000002 
100204 


002212" 


180$: 


101566' 
000001 


002212’ 


190$: 


002212’ 
017104' 


000017 


999%: 


3¢ 


#141005, T27PK3 
#256. ,1T27SZ 
@T27PK3,R4 

R4, TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 

+ tallies 


G 
ERRNO, T27TSA,PKTSSR 


T27BFR+14,R1 


FATFLG 
ERRNO, T27NEF ,EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


6 
s;TEST 7, SUBTEST 3 


i 
;VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=0 
sTERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 


;( THE WRITTEN RECORD IS READ AND CHECKED). 
sBYTE COUNTS AND DATA PATTERNS ARE USED. 


sWRITE DATA RETRY,ACK,CVC=1 COMMAND 
sSET UP THE SIZE OF RECORD 

sSET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 


;BR, IF OK 
;BUMP COUNT 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
.» WORD 15 
- WORD T27TSA 
WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSsCLP1 
;GET xXST3 STATUS WORD 
;SET UP EXPECTED 
;SET THE RIB BIT 
sARE THEY EQUAL 
;BR, IF EQUAL (GOOD) 
;BUMP COUNT 
sNEF SHOULD BE SET 
TRAP CSERHRD 
. WORD 716 
.- WORD T27NEF 
-WORD EXPREC 
TRAP CsCLP1 
3>>>>>>>>>>>2> END SUBTEST >>>>>>>>>>>> 
L10124: 
TRAP CsESuB 


:IS ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


VARTOUS 


SEQ 270 


Fest ~ ERYEE 


9447 
9448 
9449 


076226 
076226 
076226 
076230 
076234 
076240 


076244 
076250 
076252 
076256 
076260 
076260 
076262 
07€264 
076266 
076270 
076276 


076302 


076330 
076334 
076336 
076340 
076344 
076344 


oAta Re tal 


104402 
004737 
004737 
004737 


004737 
103407 
005237 
010001 


104456 
001316 
005046' 
011734’ 


104406 


004737 
103407 
010004 
005237 


104456 


104664’ 
104756‘ 
105020' 


015674' 
002212' 


002172’ 
101530' 


010562’ 
002212' 


010714' 


002212' 


M5 
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101550’ 


BGNSUB 


JSR 
JSR 
JSR 


208: MOV 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T 


TRAP C$BSUB 
PC, T27REST 3SET COMMAND PACKET 
PC, T27RT2 3SET UP OTHER COMMAND PACKET 
PC,T27RT3 sSET UP OTHER COMMAND PACKET 
PUTT PIII iriiiirirititiiiiriiitiiiitiiiittiriiirtitittttt titty 
; 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; 
UT IP Err irri rrrririiriiiririiiiiiiiiitititi iri itttt. 
PC,SOF INIT 300 INITIALIZE ON CONTROLLER 
20% ;BR IF INIT WAS OK 
FATFLG ;BUMP COUNT 
RO,R1 s;CONTENTS OF TSSR REGISTER 
ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
«WORD 717 
.WORD SFIMSG 
UNITN, T270SW 3SET UP UNIT NUMBER IN PACKET 
@T27PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADORESS 


MOV 


POU UU IT ITI iri rir iiiiritiritiiiiiiitiititrrrirritittittit tt tit 
3 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

; 


FPSAASSAAAASAHHESASEASESASHSEAAEASASESESESESEASAEEEESEHEEEEKEEKEDEDEEEEE 


JSR PC,WRTCHR ; ISSUE WRITE CHARACTERISTICS 

BCS 23% ;BR, IF COMMAND ISSUED OK 

INC FATFLG s;BUMP COUNT 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC d--- y 
. WORD 
. WORD 
- WORD 

23%: CKLOOP ;LOOP IF SELECTED 

TRAP 


FPASSHEASEASAAESASEASSESEAESASAEASEAASASDESAAEASHAEEASEHEEASEAEESAEEEE 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
FPSSSASHAASSSARSESSAEASSASASSESASEASAEHAERESEASSEESSAEASEHESEEEEAEEEEHAEAAEEESD 


NC 
ERRHRD 


PC ,REWIND sCALL TAPE REWIND COMMAND 

30$ ;BR, IF NO PROBLEM 

RO,R4 ;SET UP REWIND PACKET ADDRESS 
FATFLG ;BUMP COUNT 

ERRNO, T27RWN,PKTSSR ;REWIND NOT ACCEPTED —— 


CSERHRD 
718 

WRTMSG 
SF IMSG 


CscLP1 


CSERHRD 


SEQ 271 


TSvV7 - 
TEST 7 


HARDWARE TESTS 1-8 


: WRITE DATA RETRY 


076346 
076350 
076352 
076354 
076354 


076510 
076510 


001317 
103065’ 
011746' 


104406 


013701 


102561' 
015374' 


104406 


012703 
013737 


012737 


005103' 
011746' 


104406 


101560’ 
000002 


002212" 


000024 
003114' 


140005 
101660’ 


017324’ 
101666’ 
000000 


002212" 


NS 
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101662" 


101660' 


30$: 


CKLOOP 


-WORD 719 
«WORD T27RWN 
-WORD PKTSSR 


TRAP CsCLP1 


;LOOP IF SELECTED 


§ FASAAEHAHASASARAESESESEEASEAEEEESEAEEEEEESEEEEEEAACAREEEAREEEAEAEEEAL 


H 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
; 


F PASSES HEHAAAAAEESEEEEEEESEAEEEEEESEEHESCEHREHEEEAEEHEEHASREEEEEEEEREEEE 


40$: 


MOV T27BFR+6,R1 
MOV R1,R2 

BIS @BIT1,R2 
CMP R1,R2 

BEQ 40$ 


TFLG 
ERRHRD ERRNO, T27B0T ,EXPREC 


MOV #20. ,.R3 
MOV FREE, T27wB 


sPICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;DOES EXP = REC'D 
BR, IF EQUAL (OK) 
s;BUMP COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
i?) 


;LOOP IF SELECTED 


TRAP CsCLP1 
sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FFOSSSSHEAHSESSESESESESESHEESEEESESEEEEEEEEEEEEHESESEHEEEAEEEEEEDEEESD 


; 
sWRITE DATA,CvC=1,ACK COMMAND 


. 
F FSSHESESASEASOOHEEESESEESEEASCAESSEEEEEEEESEAEEHESEEEEEEAEEHEAEEHEEEEDEEEE 


65$: 


80$: 


MOV #140005, T27PK3 
MOV @T27PK3,R4 
MOV R3,RO 

JSR PC,.FILLMEM 
MOV R3, 72752 
MOV R4,TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 80$ 

NC FATFLG 


I 
ERRHRD ERRNO,WRTERR,PKTSSR 


CKLOOP 


;WRITE DATA,CVC=1,ACK COMMAND 
;SET UP R& WITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 
;FILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
sISSUE COMMAND 

;WAIT FOR.SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 


BR, IF OK 
sBUMP COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
\ TRAP CSERHRD 
WORD 21 


5 7 
-WORD WRTERR 
«WORD PKTSSR 


sLOOP IF SELECTED 
; TRAP CscL.Pl 


J SSSASSEEESESEHASESSESEEEEEEEEEASEEHASCESEHEEEHEEAEHESEHEHEESASEREEEEEHRALE 


é 
sWRITE DATA RETRY,CVC=1,ACK CCMMAND 


SEQ 272 


TSV? -_ HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


076512 


076570 


076572 
076576 


012737 


104466’ 


000050 


010714’ 


002212’ 


015374' 
104406 


013701 101560° 
010102 


052702 000002 
020102 

001406 

005237 002212’ 


104456 
001324 
102561' 
015374' 


141005 101660’ 
000000 


B6 
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3 
FSSSSSHHAHSHHSHESHEHSHHASOSHESESHESSEHSSEEEHEEASEEHAEHEESEEEEEEEEEEHHEEEE 


MOV #141005, T27PKS 
MOV R4, Ts08¢ RS) 


PC WAIT 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP R1,R2 


BEQ 90% 

INC FATFLG 

ERRHRD ERRNO, T27WRF .PKTSSR 
90%: CKLOOP 

TST (R3)> 

CMP R3,040, 

BNE 65% 


FE SSSHSHOSHESHHESSESSSHSSSEHHSSEEHESHSSHSASESESEHEHESEEEEASEEEEEEEEEAEOEEE 


2 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


é 
FSSSSAHSHSSHSSSSSSHASSSSHSSEEHASSHSSHESEEEHSHSHESSESHEHEEEHEEEEEHEEEEEEES 


JSR PC ,REWIND 
ecs 230% 
MOV RO,R1 


INC FATFLG 
ERRHRD ERRNO, T27RWN,EXPREC 


2308: CKLOOP 


FSSSSSSHSHSHSSSSHSSHSOSSSSHASSEESHSHSHESHEHESHOSSHEEHEEHAEHSEEEEHEEAEOEEEE 


3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


4 
FSSSHSSSHSNSSSSSHESESSEHESSHESESHHASHHSHHHEHESHHEHEEESHHEEEEHESEHEEEOE 


MOV T27BFR+6,R1 
MOV R1,R2 

BIS @6IT1,R2 
CMP Rl, 

BEQ 240% 

INC FATF 


LG 
ERRHRD ERRNO, T27B0T ,EXPREC 


sWRITE DATA RETRY,CvC+1,ACK COMMAND 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

3BR, IF OK 

sBUMP COUNT 

sTSSR INCORRECT AFTER WRITE DAT4 RETRY 
TRAP CSERHRD 
. WORD 722 
~ WORD T27WRF 
- WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 

sBUMP RECORD SIZE COUNTER 

sAT 40 SIZE YET 

36R, IF MORE RECORDS TO WRITE 

sCALL TAPE REWIND COMMAND 

38R, IF NO PROBLEM 

sSAVE TSSR 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
WORD 723 
~WORD T27RWN 
. WORD EY ~=EC 

sLOOP IF SELECTED ’ 
TRAP CsCLP1 

sPICK UP xSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 

3D0ES EXP = REC'D 

36R, IF EQUAL (OK) 

3BUMP COUNT 

s TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. WORD 724 
.WORD T27B0T 
. WORD EXPREC 


SEQ 273 


TEST ~r*ORYGEE AGA Re tal 


9602 


077032 


013737 


012737 
012704 


000024 
003114' 


002212' 


003114' 


000024 


002212' 


000050 


C6 
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2408; CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
MOV 020. ,R3 sSTARTING RECORD SIZE 
101662" MOV FREE, T27RB sSTARTING READ BUFFER ADDRESS 
FSSSASESEHSSAASEHEHEHHEOEHEESOHASHEHEHEHAESHEEHEASEEHESHEEEEEHKESHEBEOEEEE 
3 
sREAD DATA,ACK COMMAND 
t 
FOSHSHHHSSSHSSSHSSSEEHEEHEAEHSEESEEEEEEEHEHEEEEEHEEEEEEESEEOEEEEEEEE 
101660' 2658: MOV 100001, T27PK3 sREAD DATA,ACK COMMAND 
MOV @T27PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
MOV R3,T27SZ sSET UP RECORD SIZE IN PACKET 
MOV R4,TSOBCRS) sISSUE COMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRC(RS),R1L sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
CMP R1,R2] sARE THEY EQUAL 
BEQ 2808 3s6R, IF OK 
INC FATFLG sB8UMP COUNT 
ERRHRD ERRNO,RDERR,PKTSSR 3TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
- WORD 725 
-WORD RDERR 
-WORD PKTSSR 
2808: CKLOOP sLOOP IF SELECTED 
TRAP CSCLPi 
MOV FREE ,R2 sGET BUFFER ADDRESS 
MOV R3,R4 sGET RECORD SIZE 
Su8 @20., ,R4 sPOINT BACK TO 1ST RECORD 
2853: ADD R2,R4 sPOINT TO 1ST LOC IN BUFFER 
CMP (R4),R3 sDATA WRITTEN = READ 
BEQ 290% s8R, IF DATA OK (GOOD) 
MOV (R4),R1 sPICK UP BAD DATA 
MOV R3,R2 3SET UP EXPECTED 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T27D0TA,EXPREC sDATA IN BUFFER NOT CORRECT 
TRAP CsSERHRD 
» WORD 726 
WORD T270TA 
. WORD EXPREC 
2908: CKLOOP ;LOOP IF SELECTED 
TRAP CSCLP1L 
TsT (R4)> ;BUMP TO NEXT ADDRESS 
Su8 R2,R4 sBACK TO RECORD SIZE 
CMP R4,R3 sAT END OF RECORD YET 
BNE 2853 :BR, IF MORE DATA TO CHECK 
TsT CR3)-> sBUMP RECORD SIZE 
CMP R3,040 sO0ONE YET 
BNE 265% 368R, IF NOT DONE YET (MORE READS) 
300$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLPL 
3308: 
ENDSUS g>>>>>>>>>>>> END SUBTEST >>>>>>> >>> 
L10125: 
TRAP CsESUB 


SEQ 274 


tet? ARR YE OAGR ae tal 


077034 
077042 
077044 


S4 077050 


077074 
077100 
077102 


023727 
103402 
004737 


012737 


004737 
103426 


012727 
000000 
013727 


002212' 
017104' 


104664’ 
104756' 
105020’ 
176750 


015674" 


000250 
002116’ 
177772 
177756 
101712' 
002212’ 


002172" 
101530' 


D6 
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000017 CMP FATFLG,4@15. sIS ERROR COUNT AT 25 
BLO 999% s68R, IF LESS THAN 25 
JSR PC, CKDROP sTRY TO DROP THE UNIT 
999%: 


101712" 


101550' 


3° 
‘ 
sTEST 7, SUBTEST 4 


3 

sVERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=1 
s TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
;(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS 
sBYTE COUNTS AND DATA PATTERNS ARE USED. 

a 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
77.4: 
TRAP Cs6SuB8 
JSR PC, T27REST 3SET COMMAND PACKET 
JSR PC, T27RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T27RTS sSET UP OTHER COMMANO PACKET 


MOV #65000. , T27DLY sSET UP DELAY COUNTER 
PUPP rrrrrrrirrrrrririiiirriiitiitiiiiiiitiriiiiiittT tty) 
} ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
; PenanuaeneennhennenenennennnhseenentaseneneNenenNNneenesannntenene 


108: JSR — s00 INITIALIZE ON CONTROLLER 


Bcs 38R IF INIT WAS OK ~ 

DELAY 250 sDELAY ABOUT .25 SEC 
MOV @250,(PC)- 
-WORD O 
MOV LSOLY,CPC)- 
. WORD 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE --20 

DEC T270LY sBUMP COUNTER 

BNE 10% 38R, IF COUNTER NOT DONE 

INC FATFLG sBUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO, SF IERR, SF IMSG 3sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 727 
-WORD SFIERR 
-WORD SFIMSG 

208; MOV UNITN, T270SW sSET UP UNIT (CORIVE) NUMBER 
MOV @T27PACKET,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 


FFSSHSHEEHESHESOHESEEEHESESEEESEESOSEEHEHEEEEEHESESESEEEHAEHHHHEHRERESE 


6 
sWRITE CHARACTERISTICS COMMANC (CALL TO WRICHR) 


TSv? 
TEST 


077170 


077214 


077216 
077222 


077246 
077246 


077310 


- MARDWARE TESTS 1-8 
7; WRITE DATA RETRY 


004737 010562’ 
103407 


005237 002212’ 
010001 


004737 010714' 


010004 
005237 002212’ 


104456 
001331 
103065' 
011746' 


104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001332 
102561° 
015374’ 


104406 
012703 
013737 


101560' 
000002 


002212’ 


000024 
003114' 


E6 
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e 
J POAAAASEAEAHAASEHESSEAASHOHOADESESEEEEEOEEESEEEEHEEEEEEEEEHEEEEEOEEEEE 


JSR PC ,.WRTCHR sISSUE WRITE CHARACTERISTICS 


Bcs 23% sB8R, IF COMMAND ISSUED OK 

INC oat sBUMP COUNT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO, WRTMSG , SF IMSG sWRITE CHARACTERISTISC —s 
. WORD 
. WORD 
- WORD 

23%: CKLOOP sLOOP IF SELECTED 

TRAP 


PPC rrrrrrrirrrrrirrrirrirriiirrririti titty 
o 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
J SSSAAHHSHAASASHSHASEASEASESEASESESSAEEESEEAEAEHEEEAESAEEESEEAEEEREROE 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 


BcS 30$ ;8R, IF NO PROBLEM 

MOV TSSRCRS), Ri sGET TSSR CONTENTS 

MOV RO,R4 sGET PACKET ADDRESS 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T27RWN,PKTSSR ; REWIND NOT ACCEPTED _— 
-WCRD 
. WORD 
- WORD 

30$: CKLOOP sLOOP IF SELECTED 

TRAP 


PUI rrrrriiririirrrirritiiiritrirrrrrrrrriiiti ttt tty 
3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


3 
F SSHSAHSASHESSEASSEEASHESSESSESEEEEHESSEASEEESESHASEEAEAEHHEKEAEEEEEREDEE 


MOV T27BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 

CMP Rl, ;D0ES EXP = REC'D 

BEQ 40% 3sBR, IF EQUAL (OK) 

INC FATFLG :BUMP COUNT 

ERRHRD ERRNO, T27B0T ,EXPREC ; TAPE NOT AT BOT AFTER — 
- WORD 
- WORD 
. WORD 

40$; CKLOOP sLOOP IF SELECTED 

TRAP 


’ MOV #20. ,R3 
MOV FREE, T27W8 


sSTARTING RECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


FPFSSHOSHHESEESSSEHESEESHSEHAEEEH! SEHEHHHEHASHESEEHEOSHHESAEEHEKEEEODEEEE 


CSERHRD 


CsCLP1 


CsCLP1 


CSERHRD 
730 
T27B80T 
EXPREC 


CscLP1 


SEQ 276 


TSV7 - HARDWARE TESTS 1-8 
7: WRITE DATA RETRY 


TEST 


077316 


077372 
077372 
077374 
077376 
077400 
077402 
077402 


077404 
077412 
077416 
077422 
077426 
077432 
077434 
077436 
077442 
077442 
077444 
077446 
077450 
077452 
077452 
077454 
077456 
077462 


077464 


012737 


011746' 
104406 


012737 
010465 
004737 


015374' 


104406 
005723 
020327 
001315 


004737 


140005 101660’ 
101660' 


017324’ 
101666' 


111005 101660' 
000000 


002212" 


000050 


010714’ 


F6 
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3 
sWRITE DATA,CVC*#1,ACK COMMAND 


3 
J SHAAAAHHARAAASEHAASESASALASEOASERARELEDEAEEEAEASEEEEEAEEEEAEEEEEEESE 


65$: MOV 


INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 


60%: CKLOOP 


#140005, T27PK3 
@T27PK3,R4 


PC ,WAITF 


SEQ 277 


sWRITE DATA,CVC#1,ACK COMMAND 
+SET UP R4 WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


sBUMP COUNT 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


«WORD 731 

-WORD WRTERR 

«WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCLP1 


J SSSSSHESSEEESEEAEESESESESASESEEAEEEBEEAREEESESESOSESEESEEEEEEEEESESEEE 


3 
sWRITE DATA RETRY,ACK,SWB=1 COMMAND 
; 


{ PPAASHHASAHEASASASASESEEESEEEHEESEASEEAEAESESEEADAAOASHESEEEAEESEEE 


#111005, T27PK3 


@SSR ,R2 
R1,R2 
90% 
FATFLG 


ERRNO, T27WRF ,EXPREC 


(R3)+ 
R3,040. 
65$ 


sWRITE DATA RETRY,ACK,SWB=1 COMMAND 
: ISSUE COMMAND 

sWAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 


;BR, IF OK 

sBUMP COUNT 

3TSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRD 
. WORD 732 
. WORD T27WRF 
~-WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLPL 


sBUMP RECORD SIZE COUNTER 
sAT 40 SIZE YET 
sBR, IF MORE RECORDS TO WRITE 


FSOSSEHHHASSHESEASHHSESEESASOESHESEEASEESSHESEEHESEOEHEEEEESHSESESESEEAESEEEESED 


+ 
s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
; 


FFA SHEHASSSEESASEEEEESESEASHASESHAEESESEESEEEHESESESSSEESEEEHESASEEES 


JSR 


PC,REWIND 


sCALL TAPE REWIND COMMAND 


TSV7 - HARDWARE TESTS 1-8 
DATA RETRY 


VEST 7: 


WRITE 
077470 


077514 


077516 
077522 
077524 
077530 
077532 
077534 


9826 077540 


9851 


077540 
077542 
077544 
077546 
077550 
077550 
0775S2 
077556 


077564 
077572 
077576 
077602 
077606 
077612 
077616 
077622 
077624 
077626 
077632 
077632 
077634 
077636 
077640 
077642 
077642 


103411 
016501 
010004 
005237 


104456 
001335 
103065' 
011746' 


104406 


013701 
010102 
052702 
020102 
001406 
005237 


104456 
001336 
102561' 
015374’ 
104406 


012703 
013737 


012737 


011746’ 
104406 


000002 
002212' 


101560' 
000002 


002212' 


000024 
003114' 


002212' 


G6 
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101662’ 


101660' 


2308: 


Bcs 2308 s8R, IF NO PROBLEM 

MOV TSSRCRS),R1 sGET TSSR CONTENTS 

MOV RO,R4 sGET PACKET ADDRESS 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, T27RWN,PKTSSR ; REWIND NOT ACCEPTED taep 
. WORD 
. WORD 
. WORD 

CKLOOP sLOOP IF SELECTED 
TRAP 


J PORAAAESESEEEEEEEEEEAEEEEEDEEEOREEEEDEEEEEEEEREREREEREREDEREDEEEES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


6 
J SPMAARESSSEHAAASAESEASEHASEASSEEESEEAAELEEAEOAREEEEEHEEEEERERESESESEES 


2403: 


MOV T27BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS @BIT1,R2 ;SET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ ote 3BR, IF EQUAL (OK) 

INC FATFLG s8UMP COUNT 

ERRHRD ERRNO, T27B0T,EXPREC sTAPE NOT AT BOT AFTER —— 
. WORD 
. WORD 
. WORD 

CKLOOP sLOOP IF SELECTED — 

MOV #20. ,R3 sSTARTING RECORD SIZE 


MOV FREE, T27RB sSTARTING READ BUFFER ADDRESS 


F SASSSASAHHAHOSSAHSEASSSEESESESESEEHEEHEEEEEAEEEEEEEEESEEEEEEEEEEEEEEE 


5 
sREAD DATA,ACK COMMAND 


J SSSSSSHSSSSSSSSHASHEASSESHESEEEHASEESEAEASSEHRESSESASESASHEAEEOEREEEEAHE 


2655: 


280%; 


MOV #100001, T27PK3 sREAD DATA,ACK COMMAND 

MOV @T27PK3,R4 sSET UP R4 WITH PACKET ADDRESS 

MOV R3,T27SZ ;SET UP RECORD SIZE IN PACKET 

MOV R4, TSOBCRS) s ISSUE COMMAND 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSR(RS), R1 sGET TSSR CONTENTS 

MOV @SSR ,R2 sSET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 280% sBR, IF OK 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO,RDERR,PKTSSR sTSSR INCORRECT AFTER =o 
. WORD 
- WORD 
. WORD 

CKLOOP sLOOP IF SELECTED 
TRAP 


T27RWN 
PKTSSR 


CsCLP1 


CsCLP1 


CSERHRD 
735 
RDERR 
PKTSSR 


CsCLP1L 


SEQ 278 


H6 


TSV7 - HARDWARE TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 SEQ 279 
TEST 7: WRITE DATA RETRY 
9852 077644 013702 003114’ MOV FREE ,R2 sGET BUFFER ADDRESS 
9853 077650 010304 MOV R3,R4 sGET RECORD SIZE 
9854 077652 162704 000024 SUB 020, ,R4 sPOINT BACK TO 1ST RECORD 
9855 077656 060204 2853: AOD R2,R4 sPOINT TO 1ST LOC IN BUFFER 
9856 077660 000303 SWAB R3 sSWAP BYTES SWB=1 ETC. 
9857 077662 021403 CMP CR4),R3 sDATA WRITTEN = READ 
9858 077664 001410 BEQ 290% 368R, IF DATA OK (GOOD) 
9859 077666 011401 MOV CR4),R1 sPICK UP BAD DATA 
9860 077670 010302 MOV R3,R2 3SET UP EXPECTED 
9861 077672 005237 002212' INC FATFLG sBUMP COUNT 
9865 077676 ERRHRD ERRNO, T270TA,EXPREC sDATA IN BUFFER NOT oan 
077676 104456 TRAP CSERHRD 
077700 001340 . WORD 736 
077702 104546' “WORD T270TA 
077704 015374' -WORD EXPREC 
9866 077706 2908: CKLOOP ;LOOP IF SELECTED 
077706 104406 TRAP CSCLP1 
9867 077710 005724 TST CR4)> ;BUMP TO NEXT ADDRESS 
9868 077712 160204 SuB R2,R4 ;B8ACK TO RECORD SIZE 
9869 077714 000303 SWAB R3 3PUT R3 BACK INTO SHAPE 
9870 077716 020403 CMP R4,R3 sAT END OF RECORD YET 
9871 077720 001356 BNE 285% 368R, IF MORE DATA TO CHECK 
9872 077722 005723 TST CR3)> ;BUMP ~ | eg SIZE 
9873 077724 020327 000046 CMP R3,038. sDONE Y 
9874 077730 001315 BNE 265% 3;6R, IF ENoT DONE YET (MORE READS) 
9875 077732 3008: CKLOOP ;LOOP IF SELECTED 
077732 104406 TRAP CSsCLP1 
9876 077734 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
077734 L10126: 
077734 104403 TRAP CsESuB 
9877 077736 023727 002212’ 000017 CMP FATFLG, 415. 3IS ERROR COUNT AT 25 
9878 077744 103402 BLO 999% ;6R, IF LESS THAN 25 
9879 077746 004737 017104' JSR PC ,CKDROP sTRY TO OROP THE UNIT 
9880 077752 999%: 
9881 
9882 3° 
9883 : 
toes ;TEST 7, SUBTEST 5S 
° 
9886 sVERIFIES THAT A WRITE DATA RETRY COMMAND IS 
9887 sPERFORMING THE “ERASE” PART OF THE OPERATION BY 
boas sPERFORMING THE FOLLOWING SERIES OF STEPS. 
a 
9890 sh THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
9691 F WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 


: 


SHOULD RESULT IN RECORDS SEPARATED BY THE 
STANDARD INTERRECORD GAP. 


a 
a 
9895 as A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING 
9896 . THE TAPE AND THEN CONUTING THE NUMBER OF CYCLES 
9897 3 THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
9898 3 THE SERIES OF RECORDS WRITTEN IN PREVIOUS 
9899 ; STEP 
9900 ; 
9901 33. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF 
9902 ; RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE 
; 


DATA RETRY COMMAND. THIS SHOULD RESULT IN 


TSv7 
TEST 


- HARDWARE TESTS 
7; WRITE DATA RETRY 


012737 


004737 
103426 


012727 
000000 
013727 
000000 


013737 
012704 


002214' 


015674’ 


000250 
002116’ 
177772 
177756 
101712’ 
002212’ 


002172" 
101530’ 
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101712° 


101550' 


16 


SEQ 260 


RECORDS SEPARATED BY A LONG INTERRECORD GAP. 


THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
COUNTED TO COMPLETE THE OPERATION. 


THE TWO LOOP COUNTS ARE COMPARED, cam TO SEE 
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT 


b 


oo @f os of oe Gs GF GF Ge Ge os Ge oF oF 
ui 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
77.5: 
TRAP Cs8S5uU8 
CLR INTRECV s INTERRUPT INDICATOR 
CLR T27CNT sTIMER FOR WRITE DATS SPACING 
CLR T27CNU :; TIMER FOR WRITE — RETRY SPACING 
JSR PC, T27REST sSET COMMAND PACKET 
JSR PC,T27RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T27RTS sSET UP OTHER COMMAND PACKET 
MOV 065000. »T270LY ;SET UP DELAY COUNTER 


J SSOSAHHSHAARAASSSSESEESEAESEAEEESEEEEEEESEHESESESCESEEEHSEEEEEHEEEOESEEE 


3 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


é 
F SSSSHSHAHAHASSSSSSSSHESESESESHSEHSHSEOSEEEEDEEEEESEESEEHEAEEEEEEEEEEESD 


10$: JSR PC, SOF INIT :00 INITIALIZE ON CONTROLLER 

BCS 20$ ;BR IF INIT WAS OK 

DELAY 250 ;DELAY ABOUT "35's SEC 
-WORDB O 
MOV LSOLY,(PC)+ 
. WORD ° 
DEC -6(PC) 
BNE 3 
DEC -22(PC) 
BNE 20 

DEC T270LY sBUMP COUNTER 

BNE 10$ ;BR, IF COUNTER NOT DONE 

INC FATFLG ;BUMP COUNT 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. WORD 37 
-WORD SFIERR 
-WORD SFIMSG 

20%: MOV UNITN, T270SW sSET UP UNIT NUMBER 
MOV OT27PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


J SPSSSSHESESESHESESEHESSSSESHSEHEEHESEHEEEEHEHHEEHEEESHESEEEHHEEEOEEEE 


TSv? 
TEST 


- HARDWARE TESTS 1-8 
7: WRITE DATA RETRY 


004737 010562’ 
103407 
005237 002212’ 
010001 


cposts 010714' 


0004 
005237 002212’ 


104456 
001345 
103065' 
011746' 


104406 


013701 101560° 
010102 
052702 000002 
020102 
001406 
005237 002212’ 


104456 
001344 
102561' 
015374' 


104406 
012703 000144 
013737 © F°14' 


J6 
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sWRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR) 


é 
J PSSHAHASSESASAESESESESESEHSAEEHESESSESESEEEEESEEHEEEEEEESEEEEEESEEEEEEESE 


MOV RO,R1 
ERRHRD ERRNO,WRTMSC , SF IMSG 


23%: CKLOOP 


PC ,WRICHR 
23% 
FATFLG 


sISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sBUMP COUNT 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC by 


. WORD 
. WORD 
. WORD 


TRAP 


;LOOP IF SELECTED 


J SSSASAHAASSESAAESESEHSESEAESASESESAEHEESESEEASESEOESAESESEEEEESEESEEEEEEEE 


; 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


3 
J PSAASAHSASASSSOSASSESESEHESESEESEEEEEESEASESEEESESEEASEHESEESESEEEEESEE 


ERRHRD 


30$: CKLOOP 


PC ,REWINO 
30$ 


TSSRCRS),R1 

RO,R4 

FATFLG 

ERRNO, T27RWN,PKTSSR 


sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 

sGET TSSR CONTENTS 

sGET PACKET ADDRESS 

sBUMP COUNT 

sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 
TRAP 


PeYULITiti rir iiiitiititiiititiiitiiiiritiiiritititiriiiiiiiiii iy) 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


a 
FSRSSSHSSSSHSSSEESSESSESHESSESEHSHESEESEEEESESHEEESESEESEESEESSESEEEEEEEHEEEEESD 


40$: CKLOOP 


MOV 
MOV 


T27BFR+6,R1 
R1,R2 
oBIT1,R2 

Re 


FATFLG 
ERRNO, T27BOT ,EXPREC 


#100, »R3 
FREE , T27WB 


sPICK UP XSTO 

;SET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 

sBR, IF EQUAL (OK) 

BUMP COUNT 


3 
;TAPE NOT AT BOT AFTER ——- 


;LOOP IF SELECTED 
TRAP 


CscLP1 


CscLP1 


CSERHRD 
740 


T27B0T 
EXPREC 


CscLP1 


sNUMBER OF RECORDS TO BE WRITTEN 


sSTARTING WRITE BUFFER ADDRESS 


SEQ 261 


TSV7 - HARDWARE TESTS 1-8 
7: WRITE DATA RETRY 


TEST 


012737 140005 101660’ 
101660’ 


000024 101666‘ 
000000 


002212' 


011746' 
104406 


005303 
001345 


010714' 
000002 
002212' 


011746' 
104406 
013701 


005237 


K6 
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J PHAAAAHEAAARARESEREAEEHESEEAAAERARERERESEEAASAEEREEREREEEEEEREEREDSE 


i 
sWRITE DATA,ACK,CVC*1 COMMAND 


3 
FSSAASAHAHHEAASAHEASAASAEREESERAEHADESAEAERESEHEAEEEEEEEEEEEOEEEREDE 


65$: MOV #140005, T27PK3 
MOV @T27PK3,R4 
MOV #20. ,T27SZ 
MOV R4, TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS ),R1 
MOV SSR ,R2 
CMP R1,Re 
BEQ 70$ 
INC FATFLG 
ERRHRD ERRNO,WRTERR,PKTSSR 
708: CKLOOP 
DEC R3 
BNE 65$ 


sWRITE DATA,ACK,CVC=1 COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

BR, IF a 

;BUMP COUN 

:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


-WORD 741 

-WORD WRTERR 

«WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sDEC RECORD COUNTER 
;BR, IF MORE RECORDS TO WRITE 


FPHSEASAESEAEASERASAESSSEHESEAEEESESEAEEEOEEEEEEEEASEHEEEEEEEEEROEEEE 


; 
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
FPHEASAARERASEASSEAASEEEAAAASESELESEEESEEECEERESEEESEEEHEAEEEEEREOESED 


JSR PC ,REWIND 
BcS 130% 

MOV - TSSRCRS),R1 
MOV RO,R4 


INC FATFLG 
ERRHRD ERRNO, T27RWN,PKTSSR 


130$: CKLOOP 


sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
;GET TSSR CONTENTS 
;GET PACKET ADDRESS 
;BUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 


. WORD 742 

-WORD T27RWN 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CsCLPl 


FSASAREAEAHEEAESAEAEAEEEEASAEEEHEEAREADEEHESESEREEEEEEEEEEEEREEOEEOE 


‘ 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


FPFSASHEEHSEASEEAESSEAEEEESEEESESESHEAHEEEEEEEEEEEEEEEEEEHEEEEEEEERSE 


MOV T27BFR+6,R1 
MOV R1,R2 

BIS #BIT1,R2 
CMP R1,R2 

BEQ 140% 

INC FATFLG 


sPICK UP XxSTO 

s;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

sBR, IF EQUAL (OK) 

sBUMP COUNT 


SEQ 262 


TSv7 
TEST 


10057 


10083 


100376 
100376 


- HARDWARE TESTS 1-8 
7: WRITE DATA RETRY 


104456 
001347 
102561' 
015374' 


104406 
012704 
012737 


012737 
010465 
005237 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
001367 
016501 
032701 
001755 
016501 
012702 
020201 
001406 
005237 


104456 
001350 
104327' 
011746’ 


104406 


004737 
004737 
103407 
010001 
005237 


104456 


101660' 
000010 101662’ 


140010 101660’ 
000000 
101706’ 
000001 
002116' 
177772 
177756 


000002 
000200 


000002 
000200 


002212' 


010714’ 
016236' 


002212" 


L6 
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ERRHRD ERRNO, T27B0T ,EXPREC 


1408; CKLOOP 


MOV 
MOV 


@T27PK3,R4 
#10, T27RB 


sTAPE NOT AT BOT AFTER REWIND 
TRAP 


sLOOP IF SELECTED 


sSET UP PACKET ADDRESS 
sSET UP RECORDS TO SPACE OVER 


J FSSHAAASHAHHARAEHEEEESASESEHERESEEHEEESCHESHEAEHEEEEEAEEHESESEOEEESEEEEEEEE 


; 
sACK,CVC=#1,SPACE FORWARD COMMAND 


a 
FSSAAASHHSHSSHSSSESHSAHESHSEESEEESEEASESEEEASESESEEEEEEEHEAEESESEEESEEEESEE 


OMMAND 


MOV #140010, T27PK3 
1508: MOV R4, TSOBCRS) 
152$: INC T27CNT 

DELAY 1 

MOV TSSRCRS),R1 

BIT oBIT7,R1 

BEQ 1528 

MOV TSSRCRS),R1 

MOV @SSR,R2 

CMP R2,Ri 

BEQ 160$ 

INC FATFLG 

ERRHRD ERRNO, T27SCF ,PKTSSR 
160$; CKLOOP 


sDELAY ABOUT 100US 


;GET TSSR 

sCHECK FOR TSSR’'S SSR SET 
sKEEP COUNTING UNTIL SET 
;GET STATUS FROM TSSR 
;SET UP EXPECTED 

;WAS EVERYTHING OK 

;BR, IF ALL IS WELL 


sBUMP COUNT 
3SPACE FORWARD DIDN'T WORK OUT 
TRAP 
- WORD 
. WORD 
. WORD 
;LOOP IF SELECTED 
TRAP 


Pe LIVI Tri rit iti iiitiii iri riiitiriiiiitivitiriiii ys) 
é 
; ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


° 
FPSHARSSSHSESSESSSEHASESSEEESSESESHESEEESESEEHEHEEEEEESSEHSESSEEHESEHEEESEEEEESEEOD 


JSR PC,REWIND 
JSR PC,CHKTSSR 
BCS 170$ 

MOV RO,R1 

INC FATFLG 


ERRHRD ERRNO, T27RWN,PKTSSR 


;CALL TAPE REWIND COMMAND 
sSEE HOW TSSR IS 
;BR, IF NO PROBLEM 
sSAVE TSSR 
s;BUMP COUNT 
sREWIND NOT ACCEPTED 
TRAP 


SEQ 283 


T27B0T 
EXPREC 


CsCLP1 


+ ‘aati 
Peebles 
-6(PC) 

4 


22¢PC) 
.-20 


CscLP1 


CSERHRD 


TSV7 -_HARDWARE T 
test 7; ITE DA 


103065 ' 
011746' 


104406 


013701 


102561°' 
015374' 


204406 


012703 
013737 


012737 


011746' 


104406 
005303 
001342 


R Re tat 


001351 - 


101560' 
000002 


002212' 


000144 
003114' 


140005 
101660’ 
000024 


000000 
016150’ 


000002 
000200 


002212' 


M6 
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101662’ 


101660’ 
101666' 


-WORD 745 
«WORD T27RWN 
-WORD PKTSSR 
TRAP CsCLP1 
{PPRAAAOAAEAEEEEEAEAEEAEEEEEEEREREEEREREEEEEEEEARERESEAEDEDEEEEEDEE 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


170$: CKLOOP sLOOP IF SELECTED 


a 
FAMSAAAARAASSASRASEESEHRAREAEEARESESEEHAAALEEEEESASAEEEEESEASEKEEAEEADEEED 


MOV T27BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS #6IT1,R2 ;SET BOT BIT IN EXPECTED 
CMP R1,R2 sDOES EXP = REC'D 
BEQ 175$ 3BR, IF EQUAL (OK) 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T27B0T ,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
WORD 746 
WORD T27B0T 
-WORD EXPREC 
175$: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
MOV #100. ,R3 ;STARTING RECORD SIZE 
177$: MOV FREE, T27WB ;STARTING WRITE BUFFER ADDRESS 


fPPAAAAEAAEREAEAAEEERAEAREEADEOEEESEDEEEEREAASEDEREEEAEEREEEAEDEEEDE 
: 

sWRITE DATA,CVC*1,ACK COMMAND 

3 

fF PRARAAAAAREREREASEREEAERERERSEAREREAEOARERADAEROAERDEREEEEREEEEEEE 


MOV #140005, T27PK3 sWRITE DATA,CVC=1,ACK COMMAND 


MOV @T27PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 

MOV @20.,T275Z ;SET UP RECORD SIZE IN PACKET 

MOV R4, TSOBCRS) s ISSUE COMMAND 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

MOV @SSR ,R2 sSET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 180$ ;BR, IF OK 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO,WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
«WORD 747 
-WORD WRTERR 
-WORD PKTSSR 

180$;: CKLOOP ;LOOP IF SELECTED 

TRAP CsCLP1l 

DEC R3 ;COUNT NUMBER OF RECORDS 

BNE 177$ ;BR, IF MORE RECORDS TO WRITE 


J SHSAEAAEESEHAHSAESEADEAASEHREAESSAEEASEHEAEEHEAEEEEEEAEAHEASEASHESLEREOEEE 


i 
; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


SEQ 284 


TSV7 -_ HARDWARE T 
TEST 7: WRITE DA 


=m 


010714' 
000002 
002212’ 


011746’ 
104406 


012703 
004737 


000001 
010366’ 


016501 
005237 


104456 
001355 
104327' 
011746' 


104406 
012703 
013737 


000002 
002212" 


000144 


101016 003114" 


101024 
101032 
101036 
101044 
101050 
101054 
101060 
101064 
10199 101066 
101070 
101074 
101074 


012737 


005237 
104456 


N6 
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101662’ 


101660' 
101666' 


3 
J FSSAAAAAAAEAEHAAAEEESOHAEEREEEEEEERERARAREEARERAAREREARABREEAEEEEDRE 


JSR PC ,REWIND 
BCS 182$ 

MOV RO,R4 

MOV TSSRCRS),R1 
INC FATFLG 


ERRHRD ERRNO, T27RWN,PKTSSR 


s ISSUE REWIND 

38R, IF ALL IS WELL 
:GET PACKET ADDRESS 
;GET TSSR CONTENTS 

sBUMP COUNT 

sREWIND FAILED 


TRAP — 
-WORD 748 
«WORD T27RWN 
-WORD PKTSSR 
182%: CKLOOP sSELECT LOOP MAYBE 
TRAP CSsCLP1 
j PORAOEEOEEEEEEEEEEEEEEEEEASAEEEEEEEEEAEAEEEEEEEEDEEEEEEEEEDEDEEEEE 
3 
s; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - O=FORWARD 1=REVERSE 
; 
PUP rrrrrrrrrrrrrrrrrrriiririiiiriiiiririittiriiiitttiiitt 
MOV #1.,R3 :SPACE 1 RECORD FORWARD \ 
JSR PC, SPACE s ISSUE SPACE COMMAND ; 
BCS 185$ sBR, IF COMMAND OK 
MOV RO,R4 sGET PACKET ADDRESS 
MOV TSSRCRS),R1 :GET TSSR STATUS 
INC FATFLG ;BUMP COUNT 
ERRHRD ERRNO, T27SCF .PKTSSR sSPACE FORWARD COMMAND FAILED 
TRAP CSERHRD 
-WORD 749 
-WORD T27SCF 
-WORD PKTSSR 
185$: CKLOOP ;LOOP IF SELECTED 
TRAP CsCLP1 
MOV #100. ,R3 sNUMBER OF RECORDS TO BE WRITTEN 
MOV FREE, T27WB sSTARTING WRITE BUFFER ADDRESS 


§ FSS ESESEEEASESAEEAEEAESEEEAEEOEEEEDEAEAEEEEREAEEOAODEEEAEOEEEEEEEREEESEEED 


‘ 
sWRITE DATA RETRY,ACK COMMAND 


° 
FSSASAEAESSAAAASEEESEESEASAEAAAAAARASLEEEESAKREEAEDEAEDEEEEEEEEEEEEESD 


190$; MOV #101005, T27PK3 
MOV #T27PK3,R4 
MOV #20. ,T27SZ 
MOV R4, TSDBCRS) 
JSR °C, WAITF 
MOV TSSR(RS), R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 200% 
NC 


I FATFLG 
ERRHRD ERRNO, T27WOC,PKTSSR 


sWRITE DATA RETRY,ACK COMMAND 
sSET UP R4& WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

sSET UP EXPECTED 

s;ARE THEY EQUAL 

BR, IF OK 


;BUMP COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


SEG 285 


101114 


pata ae tay 


104406 
015737 


012737 


004737 
103411 
016501 
010004 
005237 


104456 
001360 
103065’ 
011746' 


104406 


003114" 


010714° 
000002 
002212" 


B7 
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«WORD 750 
«WORD T27wOC 
«WORD PKTSSR 
2008: CKLOOP sLOOP IF SELECTED 
TRAP CscLP1 
101662’ MOV FREE , T27W8 sSTARTING WRITE BUFFER ADDRESS 


101660° 
101666' 


POI riiiririiiiiiiiririiiiiritiriiiiiiiitiitiiiiitiT Tit) 
iWRITE DATA,CvC*1,ACK COMMAND 


MOV #140005, T27PKS sWRITE DATA,CvC*1,ACK COMMAND 
OV @T27PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV @20.,T27SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSOBC( RS) s ISSUE COMMAND 
JSR »WAITF sWAIT FOR SSR TO SET 
MOV TSSACRS).R1 sGET TSSR CONTENTS 
MOV @SSR ,R2 sSET UP EXPECTED 
Chup R1,R2 sARE THEY EQUAL 
2108 : ° on 
INC FATFLG COUNT 
ERRHRD ERRNO, WRTERR ,PKTSSR +TSSR INCORRECT AFTER a A DATA 
CSERHRO 
"Moro 751 
«WORD WRTERR 
PKTSSR 
2108: CKLOOP sLOOP IF SELECTED 
TRAP CSsCcLPl 
DEC R3 sBUPP DOWN RECORD COUNTER 
BNE 190% sBR, IF MORE RECORDS TO WRITE RETRY 


é 
s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


JSR + 7 eas sCALL TAPE REWIND COMMAND 

ecs 230 s6R, IF NO PROBLEM 

MOV Tssncns), R1 1GET TSSR CONTENTS 

MOV RO,R sGET PACKET ADDRESS 

INC FATFLG sBUMP COUNT 

ERRHRD ERRNO, 127RWN,PKTSSR ; REWIND NOT ACCEPTED 
TRAP CSERHRO 
«WORD 752 
-WORD T27RWN 
-WORD PKTSSR 


230%: CKLOOP sLOOP IF SELECTED 
TRAP CscLPt 


FOSSSSOSSHESSEESSHSSSSSESSHESSEHHSSHESSHESSHHESEHSESESHSHHSEHHEEEEEEEESHE 


8 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


a 
FOSSSSSSSHSHESHESSHSHESHSSSSESHEEES! SHESHHHSSHEESHESHEESSHESSHHSSEHEEESHESEEEOES 


TES} 7 ORYORS OAt ae tal 


101274 


015374' 


104406 
012704 
012737 


012737 


000000 
013727 
000000 


101560° 
000002 


002212" 


2408: 


101660° 


000010 101662’ 


MOV 
MOV 
BIS 
cmp 
BEQ 
INC 
ERRHRD 


C7 
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T27BFR+6,R1 
R1,R2 
oBIT1,R2 
R1,R2 

2408 


FATFLG 
ERRNO, T27B0T ,EXPREC 


@T27PKS ,R4 
#10, T27RB 


sPICK UP xXSTO 

sSET UP EXPECTED 

SET — yest IN EXPECTED 
s00ES E * REC'O 

s6R, IF "que (OK) 

sBUMP COUNT 

s TAPE NOT AT BOT AFTER — 


. WORD 
sLOOP IF SELECTED 


TRAP 
sSET UP PACKET ADDRESS 
iSET UP RECORDS TO SPACE OVER 


POP riiriiiiiiiiriiiiiiiiiiiiiriitriitiii iii ti yy) 
TACK ,CVC#1, SPACE FORWARD COMMAND 


sACK.CVC*1,SPACE FORWARD COMMAND 
ISSUE COMMAND 


140010 101660' 
000000 

101710" 

000001 

002116’ 

177772 


177756 


2508: 
2528: 


260%: 


101706’ 
101710° 


000077 
000777 


MOV 
MOV 
INC 
DELAY 


#140010, T27PKS 
R4, TSOBCRS) 
hanes 


Hs Sard tle 
@BIT7,R1 
2528 
TSSRCRS),R1 
@SSR ,R2 
R2,Ri 

2608 


FATFLG 
ERRNO, T27SCF ,PKTSSR 


T27CNT RI 
T27CNU,R2 


000777, RL 


BUMP TIMER 
sDELAY ABOUT 100US 


DEC 
BNE 


sGET TSSR 

sCHECK FOR TSSR’S SSR SET 
sKEEP COUNTING UNTIL SET 
sGET STATUS FROM TSSR 
sSET UP EXPECTED 

sWAS EVERYTHING OK 


COUNT 
sSPACE FORWARD OION’T -<~ A 


sLOOP IF SELECTED 
TRAP 


sTIME FOR WRITE SPACING 

sTIME FOR WRITE RETRY SPACING 
sGET‘EM PRETTY CLOSE 

sGET‘EM PRETTY CLOSE 

sGET‘'EM PRETTY CLOSE 

sCLEAR LOW 6 BITS 

sSETTING UP CONSTANTS 


SEQ 267 


CSERHRO 
753 
T2760T 
EXPREC 


CsCLPi 


@1,(PC)- 
CsoLy.(PC)s 
“ecPe) 
“2acPe) 

-20 


¢ SERHMROD 


34 
T27SCF 
PKTSSR 


Csc.P1 


FEST ~ *ORYPBE AGA Ae tal 


020102 
002006 


104406 


100004 
101540" 
000000 
000012 
101552’ 
000000 
000024 
000000 
000000 


100006 
101670° 


002212" 


002212" 
017104" 


016360' 
075046’ 


D7 
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000017 


CMP 
BGE 
INC 


3008: 


1638: 
EXIT 


R1,R2 

3068 

FATFLG 

ERRNO, T27TIM, EXPREC 


FATFLG,@15. 
999% 
PC ,CKDROP 


+l ean 
T27L00P 
TsTt 


3° 
sLOCAL STORAGE FOR THIS TEST 


T27DATA: | 


T270SwW: 
T27BFR: 


3 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


3 
T27PK2: 


- WORD 
- WORD 
. WORD 
. WORD 


.BLK 
T27PKS3; 


10-<, -TSV2E7> 
100004 
T27DATA 

te) 

10. 

T278FR 

to) 

20. 

te) 


fe) 
25. 


10-<, -TSV2E7> 
100006 

T278F 2 

0 

6. 


10-<, - TSV2E7> 
100005 


SEQ 288 


IER IF GOOD pose CHECK gag0 
BUMP COUNT 


S 
sTIME WAS NOT DIFFERENT ENOUGH 
TRAP 


CSERHRD 
«WORD 755 
«WORD T27TIM 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CscCLPi 
geeceececceeccece END SUBTEST >>> >>> >> >>>> 
L10127: 
TRAP Csesus 
sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 
300 WE NEED TO ITERATE TEST 
s6R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CSsExIT 
«WORD 1L10122-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTM OF MESSAGE BUFFER 


sSELECT ORIVE O 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND 
sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


AND ACK 


sREREAD COMMAND, AND ACK 


TSV7 - HARDWARE TESTS 1-8 
TEST 7: WRITE DATA RETRY 


101670 
101670 
101671 
101672 
101674 


101676 
101700 
101702 
101704 


101706 
101710 
101712 


101714 
02002 


103622 
103711 


003114" 


100205 
100605 


102205 
177777 
000000 


000000 
000000 


E7 
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T27RB: 
T27wB: 


T2782: 


T27S3: 
3 
: 


ence sADDRESS OF WRITE BUFFER 
0 sSIZE OF BUFFER (EXTENT) 
10 sBSELO AREA 
200 sBSEL1 AREA 
0 3SEL 2 AREA 
0 IDATA AREA 


100205 sREREAD DATA (NEXT) 
100605 sREREAD DATA RETRY 
102205 sWRITE CONTINOUS 
177777 sEND OF DATA 


te) sTAPE TIMER COUNTER STORAGE AREA 
te) sTAPE TIMER COUNTER STORAGE AREA 
i) sDELAY COUNTER 


‘Tape Position Incorrect After REREAD Previous (OPP=1)’ 
‘TSSR Incorrect After READ DATA Command’ 


*REREAD Previous (Space Reverse, Read Forward) Command Fai led’ 


‘POSITION (Space Command) Failed. TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO ROT’ 
‘TSSR Not Correct After Illegal Mode Bits Set’ 
‘Tll 1 Mode Bits, Failed To Set ILC Bit In xSTO' 
‘REREAD COMMAND Not Accepted’ 
— Not Correct After WRITE DATA RETRY Command,At BOT’ 
epe Not At BOT After —_o- Command (BOT Not se In xSTO)’ 
: URETE DATA RETRY''S Erase Tape Not Long wer: ot 
* REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
TSSR Not Correct After REREAD COMMAND Re ject’ 
iene (POSITION) Command Not Accepted’ 
‘RAM Error, Correct Date Pattern Not In Ram’ 
‘TSSR Init. Failed After REREAD C 
'‘Orive 7 Select Failed To Set “OFL” In TSSR: 
*‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
‘TSSR Not Correct After REREAD DATA Command’ 
‘CVC Set, Didn''t Reset VCK In pees Buffer’ 
‘TSBA Not Correct After REREAD DATA Command’ 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading Long Record Failed To Set RLL Bit Im xSTO' 


SEQ 2869 


Test 72 WRITE DATA Betne 


1037735 
0405 


012701 
012721 
012721 
005021 
012721 
012721 
005021 


012721 
012721 
005021 


177777 
000000 


101640° 
100006 
101670' 
000006 
101670' 


101660' 


MACRO M1115 01-FEB-84 


101552’ 


F7 


17:54 
‘Readi 
‘Reet dusl By 


‘WRI UAITE Bata RETRY TRY, 


TST27I0: 
-EVEN 


-ASCIZ 


3¢ 


Record Failed To Set ALS Bit 

a Roe Incorrect After Snort Record Read’ 
Feiled To Give Tape Stetus Alert’ 

or Se Firet Record, Feiled To Set RIB Bit xST3’ 

‘TSSR Not Correct After SPACE RECORDS Command’ 

*TSSR Not Correct After WRITE DATA RETRY, Into BOT’ 

*TSSR Not Correct After WRITE DATA RETRY Command’ 

‘Dete Compere Error, Date Read From Tape Not Equal To Written’ 

‘Write Date Retry’ 


In xSTO’ 


‘ 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 
3 
t- 


T27REST: 
SAVREG 
MOV @T27PACKET ,R1 
MOV #100004 ,(R1)>+ 
MOV @T27DATA,CR1)>+ 
CLR CR1)> 
MOV #10. eCR1I)> 
MOV OT27BFR,CR1)> 
CLR CR1)> 
MOV @20.,CR1)-+ 
CLR CR1)> 
MOV @0,(R1) 
MOV 024, 

64%: MOV 177777, T27BFRCR2) 
TsT R2) 
CMP 00,R2 
BNE 64% 
RTS PC 

T27RT2: 
SAVREG 
MOV @T27PK2,R1 
MOV #100006 ,(R1)+ 
MOV @T27BF2,(R1)+ 
CLR CR1)> 
MOV 6. eCRL)> 
CLR (R1)> 
MOV @T27BF2,R1 
CLR (R1)-> 
CLR (RL) 
RTS PC 

T27RT3: 
SAVREG 
MOV @T27PK3,R1 
CLR CR1)> 
CLR CR1)-> 
CLR CR1)> 
CLR CR1) 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF —, DATA BLOCK 
;EXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 

sNUMBER OF LOCATIONS TO ¥ _TLEAED 
sALL ONES TO MESSAGE BUFFE 

sNEXT LOCATION 

sAT END OF LOOP YET 

sKEEP GOING UNTIL DONE 

;RETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRE TURN 


sSAVE REGISTERS 
sSET UP "ae ADORE SS 


SEQ 290 


test “Ts URIIE 


10470 


DATA Reta’ 


104401 


012737 


012737 


006256‘ 
003124' 
017176’ 
112301’ 
016412' 
000005 


002212" 


G7 
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002170" 


002206’ 


ENDTST 
L10122: 
TRAP CserTstT 
-SBTTL TEST 8: WRITE/READ TAPE MARK 
3* 
Q 
sTHIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES 
sPROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE 
sBY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE 
s TAPE MARK. IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST 
} SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS a 
i THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND T 
sFORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 
3 
7 
+ THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 
3 
é 
; 
| i 
BGNTST - 
33 
MOV OEPRT2, EPRTSW sSECONDARY ERROR MESSAGE 
CLR K TENABLE 3 TURN KT11 OFF 
JSR PC ,KTOFF sTURN KT11 BACK OFF IF THERE 
MOV @TST28I0,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
MOV @5,LOOPCNT sPERFORM S ITERATIONS 
3° 
& 
sTEST 8, SUBTEST 1 
é 
a 
sVERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE 
sCODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS 
sREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL 
sVALID MODE CODES ARE CHECKED. 
a 
3 
g° 
T28LO0P : 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
T8.1: 
TRAP csssus8 
JSR PC, T28REST ;SET COMMAND PACKET 
JSR PC, T28RT2) 3SET UP OTHER COMMAND PACKET 
JSR PC, T26RTS sSET UP OTHER COMMAND PACKET 
JSR PC, "ea INIT 3:00 INITIALIZE ON CONTROLLER 
BcSsS 20% 36R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 CONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 801 


-WORD SFIERR 


SEG 291 


TEST “et URYTE REND Pade marx 


Ssaaeer 110260’ 20%; 


105352 


104406 
012703 


110240° 
000007 

010562’ 
002212’ 


000002 
000100 


002212" 


110416° 


H7 
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110401’ 
110400° 


110260° 


243: 


#7, T260SW 
@T26PACKET ,R4 

PC ,WRICHR 

243 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


EXTFEA 
50s 


#200, T28BS1 


RO 
FATFLG 
ERRNO, T26SSR,PKTSSR 


@T26PACKET ,R4 
@7,T280SW 
PC,.WRICHR 

50s 

FATFLG 


RO,.R1 
ERRNO, WRTMSG, SF IMSG 


TSSRCRS),R1 
@OFL ,R1 


FATFLG 
ERRNO, T280FL , SF IMSG 


@T28RN,R3 


SEQ 292 


«WORD SFIMSG 
SET UP ORIVE 


NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 
S ISSUE WRITE CHARACTERISTICS 
s6R, a ISSUED OK 


BUMP C 

; SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 

CSERHRD 

. 802 

«WORD WRTMSG 

«WORD SFIMSG 
CsCLPi1 


TRAP 
sCHECK FOR EXTENDED FEATURES Sw SWITCH 
BR IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
sWRITE SUBSYS MEM PACKET 

s ISSUE COMMAND 

;WAIT FOR SSR 

;6R, IF NO ERROR 

sERROR. SAVE TSSR 


sBUMP COUNT 
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP RHRD 


Cs€ 

803 
«WORD T28SSR 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 

s SUBROUTINE a PACKET ADORESS 

;SELECT ORIVE 7 

sISSUE WRITE CHARACTERISTICS 

s6R, IF COMMAND ISSUED OK 

sBUMP COUNT 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC ho 


CSERHRD 
«WORD 804 
-WORD WRITMSG 
-WORD SFIMSG 


sSCOPE LOOP 


TRAP Csc.Pi 
sGET TSSR CONTENTS 
sCHECK FOR THE OFFLINE BIT SET 
s8R, IF ore (GOOD) 
sBUMP COUN 


:OFF LINE SHOULD HAVE oom 3 SET (BAD) 
CSEROF 

"MORO 805 
-WORD T280FL 
-WORD SF IMSG 


TRAP CsCcLPL 


sLOOP IF SELECTED 
sPOINTER FOR COMMANDS 


TSv7 - 


TEST 6: UR LIE SRE 


10623 


011337 


011734’ 
013737 


EAD TAPE HARK 


110370° 
110370’ 
000000 


016150’ 
000002 
100306 


002212’ 


177777 


002212’ 
017104" 


002212’ 


002172" 


17 
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65%: MOV (R3), T26PKS sTAPE READ COMMAND IN PLACE 
MOV OT28PK3, RS sR4 = POINTER TO PACKET 
MOV R4, TS0B(RS) sISSUF COMMAND 
JSR sWAIT FOR SSR TO SET 
MOV TSSACRS) RL sGET TSSR CONTENTS 
MOV @SSR!ISCIOFLIBITLIBIT2,R2 sSET UP EXPECTED 
CMP R1,R2 ’ THEY EQUAL 
BEQ 608% ;BR, IF OK ESP. FUNCTION REJECT 
INC FATFLG sBUMP COUNT 
ERRHRD ERRNO, T28TM,PKTSSR iTSSR INCORRECT AFTER FORMAT CMD 
TRAP CSERHRD 
. WORD 806 
. WORD T261™ 
; «WORD PKTSSR 
80$: CKLOOP s;LOOP IF SELECTED 
TRAP CSsCLPl 
TsT (R3)+ sPOINT TO NEXT COMMAND 
CMP @177777,CR3) sEND OF THE COMMANDS YET 
BEQ 90% Oo he IF CONE 
ene BR 65$ MORE COMMAND(S) TO GO 
ENDSUB g>>>>>>>>>>>> END SUBTEST >>>>>>>s> >>> 
L10131: 
TRAP Csesus 
000017 CMP FATFLG, 15. sIS ERROR COUNT AT 25 
BLO 999% ;68R. IF LESS THAN 25 
JSR PC ,.CKDROP sTRY TO DROP THE UNIT 
999%: 
3° 
° 
sTEST 8, SUBTEST 2 
3 
sVERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE 
sCODE CAUSES FUNCTION REJECT TERMINATION WITH THE 
sILLEGAL COMMAND CILC) ERROR BIT SET. ALL ILLEGAL 
sMODE CODES ARE CHECKED. 
3 
o 
. 
BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
78.2: 
TRAP cs6sus 
JSR PC, T28REST ;SET COMMAND PACKET 
JSR PC, T28RT2 3SET UP OTHER COMMAND PACKET 
JSR PC, T28RTS ;SET UP OTHER COMMAND PACKET 
JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
Bcs 20% 38R IF INIT WAS OK 
INC FATFLG sBUMP COUNT 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERODF 
. WORD 807 
. WORD SF IERR 
. WORD SF IMSG 
110260' 20%: MOV UNITN, T280SW ;SET UP ORIVE NUMBER 


SEQ 295 


TSV7 - HARDWARE TESTS 1-8 
APE 


TEST 6: WRITE/READ T 


111014° 
015374° 


104406 
005725 
0213527 
001323 


104406 


104403 
023727 
103402 
004737 


110240' 
010562’ 


002212" 


24%: 


110372’ 
000400 110376’ 


758: 
110270' 
001000 


002212’ 


180%: 


177777 


190%: 


002212' 000017 
017104° 


9993: 


J7 
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@T26PACKET ,R4 


sSUBROUTINE NEEDS PACKET ADDRESS 


PC ,WRICHR s ISSUE WRITE CHARACTERISTICS 
24% s6R, IF COMMAND ISSUED OK 
FATFLG sBUMP COUNT 
RO,R1 sSAVE CONTENTS OF TSSR 
ERRNO, WRTMSG , SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP C SERHRD 
-WORD 808 
-WORD WRITMSG 
«WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLPi 
eT26IMv RS sSET e aaat FOR COMMANDS 
(R3), T28PKS sSET UP NEXT COMMAND 
FREE , T26R8 sSTARTING WRITE BUFFER ADDRESS 
@T26PKS ,R4 sSET UP R4 WITH PACKET ADDRESS 
256. , T28SZ sSET UP RECORD SIZE IN PACKET 
R4, TSOBCRS) s ISSUE COMMAND 
PC ,WAITF sWAIT FOR pee ren ts eats TO SET 
TSSRC ),R1 sGET TSSR CONTENT 
@SSR!ISC!BIT1!6IT2, R2 sSET UP EXPECTED 
R1, TARE THEY EQUAL 
753 sBR, IF OK 
FATFLG sBUMP COUNT 
ERRNO, T28WOF ,PKTSSR sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 809 
«WORD T28wOF 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
T26BFR+6,R1 sGET MESSAGE BUFFER 
R1,R2 :SET UP EXPECTED 
@BIT9,R2 sSET THE ILC BIT IN EXPECTED 
R1,R2 sARE THEY EQUAL 
180$ sBR, IF EQUAL (CALL IS WELL) 
FATFLG sBUMP COUNT 
ERRNO, T26L00,ExPREC sTHE ILC BIT WAS NOT SET IN xSTO 
TRAP CSERHRD 
-WORD 810 
-WORD T28L0Q 
-WORD EXPREC 
TRAP CsCLP1 
(R3)-> sBUMP TO NEXT ADDRESS (COMMAND) 
(R3),0177777 sCHECK FOR END OF COMMAND BUFFER 
308 BR, IF MORE COMMANDS TO TRY 
;LOOP IF SELECTED 
RAP CsCLPl1 
3>>>>>>>>>>>> END natest >> >> >>> d>>Dd>>>D 
L10132: 
TRAP Csesis 
FATFLG,@15. sIS ERROR COUNT AT 25 
999% ;BR, IF LESS THAN 25 
PC ,.CKDROP sTRY TO DROP THE UNIT 


SEQ 294 


K7 


tSv7 - TESTS 1-8 MACRO M1113 O1-FEB-84 17:54 
TEST BC URTIEUREAD Pade Manx . SEO 295 
10672 ” 
10673 3 
10678 :TEST 8, SUBTEST 3 
; 
106 76 VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
10677 ;PROPERLY, AND THAT READ COMMANDS SUBSEQUENTLY ISSUED 
10678 TO DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
10679 ;STATUS ALERT WITH THE TAPE MARK DETECTED (THK) STATUS 
10680 {BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 
; 
10682 58. THE CONTROLLER IS INITFALIZED AND TAPE REWOUND 
10683 ; THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 
0684 ; 


g 
uw 
~u 


A WRITE TAPE MARK COMMAND WITH CvC-1 IS ISSUED 


; AND PROPER TERMINATION AND STATUS IS VERIFIED 
pod : (I.E. vCK*O AND TMK1). 
0688 ° 
10689 33 SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH 
10690 ; CvC*0 ARE ISSUED AND PROPER TERMINATION (NORMAL ) 
pots ; AND STATUS (TMK) VERIFIED. 

a 
10693 34. A READ REVERSE COMMAND IS ISSUED AND PROPER 
10694 ; TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK) 
10695 ; VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS 
pote ; TRANSFERRED INTO MEMORY. 

; 
10698 75. A SPACE RECOROS REVERSE COMMAND IS ISSUED AND 
10699 ; PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS 
-edhng ; (TMK) VERIFIED. 

; 
10702 36. THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS 
10703 ; ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT) 
10704 3 AND STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
dae 3 THAT NO DATA IS TRANSFERRED INTO MEMORY. 

; 
10707 37. A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A 
10708 ; RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
10709 ; VERIFIED THAT TAPE STATUS ALERT TERMINATION 
10710 3 OCCURED, TMK=1 AND THAT RBPCR (RESIDUAL 
10711 $ BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
10712 3 VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
10713 ’ THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
10714 ; TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
thes ; —_— JUST BEFORE THE FIRST RECORD ON 

; . 
10717 ; 
10718 38. TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
10719 i SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT 
10720 ; TAPE STATUS ALERT TERMINATION OCCURS, WITH THE 
that ; REVERSE INTO BOT (RIB) STATUS ERROR BIT SET. 

; 
10723 39. A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A 
10724 ; RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS 
10725 ; VERIFIED THAT TAPE STATUS ALERT TERMINATION 
10726 3 OCCURED, TMK=1, AND THAT RBPCR (RESIDUAL 
10727 ; BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
10728 ; VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 


test 6: 


ITE TE OREAD Tae Mark 


000000 
013727 
000000 


002116' 
177772 
177756 
110432’ 
002212’ 


002172’ 
110240' 
010562' 


002212’ 


010714' 
000002 
002212" 


L7 
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110432’ 


10$: 


110260’ 20%: 


23%: 


THE TAPE MARK CAUSE 
TO BE PREMATURELY TERMINATED. 


ERRHRD 


PC, T26REST 


PC, SOF INIT 
208 
250 


eR1 
ERRNO, SF IERR , SF IMSG 


UNITN, T260SW 
@T26PACKET ,R4 
PC ,.WRTCHR 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


PC REWIND 
30 


$ 
TSSRCRS),R1 
RO,R4 
FATFLG 
ERRNO, T26RWN,PKTSSR 


S THE SPACE RECORDS OPERATION 


SEQ 296 


3>>>>>>>>>>>> BEGIN SUBTEST >>> >>>>>>>>> 
T8.3: 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP DELAY ROUTINE 
:00 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 
sDELAY ABOUT .25 a. 

Vv 


MOV 
DEC 
BNE 
DEC 
BNE 
sBUMP DELAY ROUTINE DOWN 
IF MORE DELAY TIME LEFT 
sBUMP COUNT 
sCONTENTS OF TSSR REGISTER 


sFATAL ERROR TSSR WAS NOT OK 
TRAP 


;SET UP DRIVE NUMBER 


sSUBROUTINE NEEDS PACKET ADDRESS 


sISSVE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 
sBUMP COUNT 

sSAVE CONTENTS OF TSSR 

s;WRITE CHARACTERISTISC —s 


- WORD 
;LOOP IF SELECTED 
TRAP 


sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 


sGET TSSR 

sSAVE PACKET ADDRESS 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP 
. WORD 


C$6SUB 


| ataaeteas 
ttt 
-6(PC) 


wl 
-22(PC) 
.-20 


CsCLP1 


CSERHRD 
813 


eS} 


10774 


10775 
10776 
10777 
10778 
10779 
10780 
10784 


10820 


111361' 
011746' 


111237° 


“er URTTEZREAD. 9 BE MARK 


110270° 
000002 


002212' 


002216' 
000200 
000010 
110350° 


000000 
016236' 


002212' 


000007 
110240' 
010562’ 


002212’ 


000002 
000100 


002212' 


M7 
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110401’ 
110400' 


110260' 


40$: 
42%: 


60$: 


65$: 


CKLOOP 


ar sina: 


FLG 
ERRNO, T28B0T ,EXPREC 


EXTFEA 
be] 


$ 
#200, T28BS1 
#10, T28BS0 
@T28PK2 ,R4 
R4, TSOBCRS) 
PC,CHKTSSR 
50s 


RO,R1 
FATFLG 
ERRNO, T28SSR,PKTSSR 


07, T280SW 
@T2BPACKET ,R4 
PC,WRTCHR 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


TSSRCRS),R1 
OOFL ,R1 


653 
FATFLG 
ERRNO, T280FL , SFIMSG 


SEQ 297 
-WORD T28RWN 
.WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSsCLP1 
sPICK UP xSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;D0ES EXP = REC'D 
3;8R, IF EQUAL (OK) 
3BUMP COUNT 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 814 
-WORD T28B0T 
-WORD EXPREC 
;LOOP IF SELECTED ens 
;CHECK FOR EXTENDED FEATURES Sw Surten 
3;6R IF SWITCH IS ON 
i WRITE MISCELLANEOUS CONT/READ STATUS 
sFUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 
;WRITE SUBSYS MEM PACKET 
; ISSUE COMMAND 
;WAIT FOR SSR 
;68R, IF NO ERROR 
sERROR, SAVE TSSR 
3;BUMP COUNT 
;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CSERHRD 
-WORD 815 
“wORD T28SSR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CsCLP1 


;SET UP DRIVE NUMBER 

;SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR, IF COMMAND ISSUED OK 

sBUMP COUNT 

;SAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


TRAP CSERHRD 
-WORD 816 
-WORD  WRTMSG 
-WORD SFIMSG 

sSCOPE LOOP 
TRAP’. CSCLP1 

sGET TSSR CONTENTS 

sCHECK FOR THE OFFLINE BIT SET 

3BR, IF OFFLINE (GOOD) 

;BUMP COUNT 

;OFF LINE SHOULD HAVE BEEN SET (BAD) 
TRAP CSEROF 
-WORD 817 
«WORD T280FL 
WORD SFIMSG 


;LOOP IF SELECTED 


TEST 6s URTIE READ PABE MARK 


10867 
10868 


011746' 


104406 
013701 
010102 
042702 
020102 
001406 
005237 


104456 
001464 
111562’ 
015374’ 


015374’ 


104406 
004737 


002172 
110240' 
010562" 


002212’ 


002212" 


110270' 
000020 


002212" 


110270' 
100000 


002212' 


010714' 
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110260° 


110370' 


68$: 


70$: 


80$: 


N7 


17:54 


UNITN, T260SW 
OT2BPACKET ,R4 
PC,,WRTICHR 


68$ 

FATFLG 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


#140011, T28PK3 
BPKS ,R4 


FATFLG 
ERRNO, T28WOC ,PKTSSR 


T28BFR+6,R1 


LG 
ERRNO. T26VCK ,EXPREC 


T26BFR+6,R1 


90 
FATFLG 
ERRNO, T28TMK ,EXPREC 


PC,REWIND 


SEQ 296 
TRAP CSsCLP1 
sSET UP DRIVE NUMBER 
sSUBROUTINE NEEDS PACKET 
s ISSUE WRITE CHARACTERISTICS 
s68R, IF COMMAND ISSUED OK 
BUMP COUNT 
; SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
«WORD 618 
-WORD WRTMSG 
«WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLP1 


sWRITE TAPE MARK ,ACK,CvC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;68R, IF OK 

;BUMP COUNT 

iTSSR INCORRECT AFTER ~~ * TAPE MARK 
TRAP CSERHRD 
-WORD 819 
-WORD T28wOC 
.WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP XSTO (VCK CHECK) 

;SET UP EXPECTED 

;VCK SHOULD BE O 

:IS vCK SET CORRECTLY 

:BR, IF vCK IS CLEAR 

;BUMP COUNT 

;VCK WAS NOT CLEAR AFTER CvC-1 
TRAP CSERHRD 
-WORD 820 
. WORD T28vCK 
.WORD EXPREC 

;LOOP IF SELECTED 
TRAP CSCLPl 

sPICK UP XSTO (CHECK TMK) 

;SET UP EXPECTED 

;TMK SHOULD BE SET 

;WAS TMK SET 

;B8R, IF TMK WAS SET 

;BUMP COUNT 

;T™M< WAS NOT SET AFTER WRT TAPE MARK 
TRAP CSERHRD 
-WORD 821 
WORD T28 TMK 
-WORD  EXPREC 

;LOOP IF SELECTED 

CSCLPL 


TRAP 
;CALL TAPE REWIND COMMAND 


test 8: 


TTE READ Fae ran 


111237" 


000002 
002212" 


000012 
140011 110370" 
110370° 


000000 
016150’ 
000002 
000200 


002212" 


110270° 
100000 


002212’ 


177777 


1308: 


1408: 
1508: 


1558: 


1658: 


1808: 


ecs 
Ov 


"Ov 
INC 
ERRHRD 


B8 
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1308 

RO,R4 

TSSRCRS) RI 

FATFLG 

ERRNO, T26RWN,PKTSSR 


T26BFR+6,R1 
Ri 


LG 
ERRNO, T2680T ,E xPREC 


#10. RS 
#140011, T26PKS 
@T26PKS RE 


FATFLG 
ERRNO, T26WOC ,PKTSSR 


T26BFR-6,R1 


80% 
FATFLG 
ERRNO, T26TMK ,E XPREC 


R3 
1558 
@177777,R0 


s6R, IF NO PROBLEM 
sSAVE PACKET ADORESS 
sGET TSSR STATUS 


s0UPP COUNT 
SREWIND NOT ACCEPTED 


TRAP CHERMRO 
.WORD 622 
-wORD oT 
:WORD = PRTSSR 
sLOOP IF SELECTED 
TRAP CSCLPL 
PICK UP xSTO 
SET UP EXPECTED 
1SET BOT BIT IN EXPECTED 
sD0ES EXP » REC‘D 
WR. TF EQUAL (OK) 
A 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERMROD 
- WORD 3 
“WORD =: T28B0T 
EXPREC 
sLOOP IF SELECTED 
TRAP CBCLPL 
sNUMBER OF RECORDS TO WRITE TH 
sWRITE TAPE MARK, VC=1 COMMAND 


ACK .C 
sSET UP R& WITH PACKET ADORESS 


sISSUE COMMAND 

iWAIT FOR SSR TO SET 

sPICK UP TSSR 

sSET UP EXPECTED (SSR ONLY) 

sWAS STATUS 

oe IF TERMINATION WAS GOOD 
COUNT 


iTSSR NOT CORRECT AFTER i TAPE M. 


CSERMRO 
«WORD 624 
-WORD T26WOC 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CscLP1 
sPICK UWP XxSTO 
sSET UWP EXPECT 


ED 
sSET Tex BIT IN EXPECTED 
s00ES EXP = REC'D 


TRAP CSERMRO 


«WORD 825 

«WORD T286TMK 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CscrP1 


sBUMP COUNTER DOWN 
1BR, IF LESS THAN 10 TAPE MARKS 
sVALUE TO WRITTEN TO MEMORY 


SEQ 299 


tetf RYE ond ha abe onann 
18319 loeres Sis78? Seite 
0920 106 012737 140601 
000024 


000000 
016150" 
000002 
100204 


002212" 


110270° 
100000 


002212’ 
111707" 


073776 
177777 


002212’ 
112122' 


100410 
012737 000001 
110370° 
000000 
016150° 
000002 
100204 
002212' 


107216 


C8 
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110372" 
110370" 


110376" 


110370° 
110372" 


2008: 


2108: 


2208: 


gS caeeeeeere 


FReE, Tous 


©140401, T26PKS 
26PK3,R4 


TSSARCRS),R 
ossnisctéite. R2 
R1,R2 


2008 
FATFLG 
ERRNO, T26ROF ,PKTSSR 


FATFLG 
ERRNO, T26RRM ,EXPREC 


GREE Ri 
a 


FATFLG 
ERRNO, T26DTR,EXPREC 


#100410, T26°KS 
01, T26RB 
bth aa F Ra 

Ra. TSDBCRS) 


TSSRCRS), R1 

@SSR!SC!BIT2,R2 
1,R2 

2228 

FATFLG 

ERRNO, T26RDG,.PKTSSR 


iS fARr ING READ BUFFER AooRess 


REVERSE Ach 

sere uP Re ates PRXET AOD ADORE SS 

sSET UP RECORD SIZE IN PACKET 
SUE COMMAND 


sGET TSSR CONTENTS 
sSET WP EXPECTED 
sARE THEY EQUAL 
sBR, IF a 
;BUMP COUN 
iTSSR INCORRECT AFTER ma - Fas 
i ERHRO 
MORO 
. WORD TaeROF 
~WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSsCcLP1 
sPICK UP xSTO 
sSET UP EXPECTED 
s1MK SHOULD BE SET 
sIS TMK SET 
s6R, IF TMK WAS SET (GOOD) 
s6UPP COUNT 
a TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
«WORD 627 
-WORD T286RRM 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sFIRST LOC IN READ BUFFER 
sEXPECTED IF NO DATA TRANS. 
s0I0 ANY DATA GET TRANSFERRED 
3s6R, IF NO DATA TRANS (GOOD) 
3;8UMP COUNT 
‘DATA TRANSFERRED ON mm 7 be gs hag 
CSERHMRD 
"WORD 828 
.WORD T28DTR 
.WORD EXPREC 
3;LOOP IF SELECTED 
TRAP CsCLP1 
sSPACE REVERSE .ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
3SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
36R, IF OK 
sBUMP COUNT 
3TSSR INCORRECT AFTER SPACE CMD. 
TRAP CSERMROD 


«WORD 829 


TEST “a S*ORYORS nd aS Pade “nar 


111765’ 


111257° 


110270" 
100000 


002212’ 


010714" 


000002 
002212’ 


110270° 
000002 


002212' 


177777 
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110372° 
110370° 


110376' 


2228: 


2268: 


2308: 


2408: 


NC 
ERRHRD 


T26BFR+6,R1 


R1,R2 
@61T15,R2 
R1,R2 


226% 
FATFLG 
ERRNO, T26RRN, E XPREC 


PC REWIND 

2308 

RO,R4 

TSSRCRS),R1 

FATFLG 

ERRNO, T26RWN,PKTSSR 


T26BFR+6,R1 
R1,R2 
oBIT1,R2 

R2 


2408 
FATFLG 
ERRNO, T28BOT ,EXPREC 


@177777,R0 


@100001, T28PK3 
@T26PK3 ,R4 
20. , 12882 

R4, vanes) 

PC ,WAITF 
TSSR(RS) RI 
@SSR!ISC!BIT2,R2 
R1,R2 

245% 

FATFLG 

ERRNO, T26WDE ,PKTSSR 


‘WORD paso 


sLOOP IF SELECTED 


TRAP CSCLP1 

sPICK UP xSTO 

sSET UP EXPECTED 

TMK SHOULD BE SET 

sIS TMK SET 

s6R, IF TMK WAS SET (GOOD) 

s8uUrP COUNT 

3 TMK NOT SET AFTER SPACE REV 
RAP — 
.~WORD T28RRN 
«WORD EXPREC 


sLOOP IF SELECTED 
TRAP Csc.P1 
sCALL TAPE REWIND COMMAND 
PROBL 


:6R, IF NO EM 

sSAVE PACKET ADDRESS 

;GET TSSR 

sBUMP COUNT 

sREWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 831 
«WORD T28RWN 
-WORD PKTSSR 

sL00P IF SELECTED 
TRAP CSCLP1 

sPICK WP XSTO 

3SET UP EXPECTED 

3:SET BOT BIT IN EXPECTED 

3D0ES EXP = REC’D 

;BR, IF EQUAL (OK) 

sBUMP COUNT 

sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHMRD 
«WORD 832 
.WORD T28B0T 
WORD EXPREC 

3;L00P IF SELECTED 
TRAP CSCLP1 


sVALUE TO WRITTEN TO MEMORY 

sFILL MEM WITH ALL ONES 

:STARTING READ BUFFER ADDRESS 

sREAD FORWARD,.ACK, COMMAND 

3SET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

3SET UP EXPECTED 

sARE THEY EQUAL 

:6R, IF OK 

sBUMP COUNT 

:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 


SEQ 301 


E8 
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TEST 6: WRITE/READ TAPE MARK 


107440 001501 -WORD 833 
107442 111146’ «WORD T26WDE 
107444 011746' -WORD PKTSSR 

11020 107446 2458: CKLOOP sLOOP IF SELECTED 
107446 104406 TRAP CSsCLP1 

11021 107450 0135701 110270° MOV T26BFR+6,R1 sPICK UP XxXSTO 

11022 107454 010102 MOV R1,R2 sSET UP EXPECTED 

11025 107456 052702 100000 BIS @BIT15,R2 s TMK SHOULD BE SET 

11024 107462 020102 cmp R1,R2 sIS TMK SET 

11025 107464 001406 BEQ 247% s6R, IF TMK WAS SET (GOOD) 

11026 107466 005237 002212’ INC FATFLG sBUMP COUNT 

110350 107472 ERRHRD ERRNO, T26RRP ,EXPREC s TMK NOT SET AFTER READ REV 
107472 104456 TRAP CSERHRD 
107474 00°'502 «WORD 634 
107476 112044’ «WORD T28RRP 
107500 015374' «WORD EXPREC 

11031 107502 247%: CKLOOP sLOOP IF SELECTED 
107502 104406 CscLP1 

11032 107504 017701 073404 MOV FREE ,R1 sFIRST LOC IN READ 8 BUFFER 

11033 107510 012702 177777 MOV @177777,R2 sEXPECTED IF NO DATA TRANS. 

11034 107514 020102 CMP R1,R2 sO0ID ANY SATA GET TRANSFERRED 

11035 107516 001406 BEG 2508 sBR, IF NO DATA TRANS (GOOD) 

11036 107520 005237 002212’ INC FATFLG sBUMP COUNT 

11040 107524 ERRHRD ERRNO, T26D0TR,EXPREC ;DATA TRANSFERRED ON — es MARK 
107524 104456 CSERHRD 
107526 001505 "MORO 835 
107530 112122’ «WORD T2860TR 
107532 015574' WORD EXPREC 

11041 107534 250%: CKLOOP sLOOP IF SELECTED 
107534 104406 TRAP CscCLP1 

11042 107536 012737 100410 110370' MOV #100410, T26PKS sSPACE REVERSE ACK, COMMAND 

11043 107544 012737 000005 110372’ MOV 5, T26RB sNUMBER OF RECORDS TO SPACE BACK 

11044 107552 012704 110370° MOV hg ans R4 sSET UP R4 WITH PACKET ADORESS 

11045 107556 010465 000000 MOV RA. TSDBCRS) sISSUE COMMAND 

11046 107562 004737 016150’ JSR PC. WAITF sWAIT FOR SSR TO SET 

11047 107566 016501 000002 MOV TSSR(RS),R sGET TSSR CONTENTS 

11048 107572 012702 100204 MOV essR!sc:6112,R2 sSET UP EXPECTED 

11049 107576 020102 cmp R1,R2 sARE THEY EQUAL 

11050 107600 001406 BEQ 2608 sBR, IF OK 

11051 107602 005237 002212’ INC FATFLG sBUMP COUNT 

11055 107606 ERRHRD ERRNO, T26ROG,PKTSSR sTSSR INCORRECT AFTER SPACE REV CMD. 
107606 104456 TRAP CSERHRD 
107610 001504 «WORD 836 
107612 110655' -WORD T28ROG 
107614 011746' PKTSSR 

11056 107616 260%: CKLOOP sLOOP IF SELECTED 
107616 104406 TRAP CsCLPi 

11057 107620 013701 110270° MOV T26BFR+6,1 PICK UP xsTO 

11058 107624 010102 MOV R1,R2 sSET UP EXPECTED 

11059 107626 052702 100000 BIS eBIT15.R2 sTMK SHOULD BE SET 

11060 107632 020102 CMP R1,R2 3IS TMK SET 

11061 107634 001406 BEQ 270% 3BR, IF TMK WAS SET (GOOD) 

11062 107636 005237 002212' INC FATFLG sBUMP COUNT 

11066 107642 ERRHRD ERRNO, T26RRN,EXPREC 3 TMK NOT SET AFTER READ REV 
107642 104456 TRAP CSERHRD 
107644 001505 «WORD 837 


107646 111765’ -WORD T28RRN 


test 8: MAUR LICORE 


11067 


11066 
11069 


015374" 


110511’ 
0153574' 


110434° 


IST 


110266' 
000004 


002212" 


100410 
00000 
110370" 
000000 
016150’ 
000002 
100204 


rm 


002212’ 


110276' 
000001 


002212’ 
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110370° 
110372° 


110370' 
110372’ 


2708: 


2808: 


2908: 


3008: 


17:54 


FATFLG 
ERRNO, T26PBP ,EXPREC 


#100410, T26PKS 
e 6RB 


TSSRC(RS),R1 
@SSR!SC!BIT2,R2 
2908 
FATFLG 

ERRNO, T28RDG,PKTSSR 


T26BFR+14,R1 
R1,R2 


1, 
eBITO,R2 
R1,R2 
300 


FATFLG 
ERRNO, T26RIB ,EXPREC 


#100010, T26PK3 
#5, T26RB 


@T26PK3,R4 

R4, TSOBCRS) 

PC ,WALTF 
TSSR(RS).R1 
— eR2 


ERRNO, T28ROF ,EXPREC 


«WORD EXPREC 


CsCLPi1 


sLOOP IF SELECTED 


TRAP 
sPICK UP RESIDUAL BYTE COUNTER 
sSHOULD BE THE DIFFERENCE 
iTS COUNTER CORRECT 
BR, IF COUNTER CORRECT 


sBUMP COUNT 
;RESIDUAL BYTE COUNTER a CORRECT 


TRAP CSERHROD 
«WORD 836 
«WORD T2ePBP 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSPACE REVERSE ,ACK, C 
sNUMBER OF RECORDS TO SPACE BACK 
sSET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


36R, IF OK 
:BUMP COUNT 
sTSSR INCORRECT AFTER SPACE CMD. 
TRAP CSERHRD 
WORD 39 
. WORD T28RDG 
-WORD PKTSSR 
3;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xST3 
;SET UP EXPECTED 
sRIB SHOULD BE SET 
:IS RIB SET 
3;6R, IF RIB WAS SET (GOOD) 
38 COUNT 
sRIB NOT SET AFTER READ REV 
TRAP CSERHRD 
-WORD 840 
-WORD T28RIB 
-WORD EXPREC 
3;LOOP IF SELECTED 
TRAP CSsCLPi 


sSPACE FORWARD,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE FORW. 
sSET UP R4 WITH PACKET ADORESS 


OMMAND 
sWAIT FOR SSR TO SET 


3SET UP EXPECTED 

sARE THEY EQUAL 

36R, IF ay 

3BUMP COUN 

:TSSR ENCORRECT AFTER SPACE CMD. 


TRAP CSERHRD 


SEQ 3035 


TSV7 - HARDWARE TESTS 1-8 


TEST 8: WRITE/READ 


001511 
110574’ 
0153574" 


104406 


100004 
110250° 
000000 
000012 


TAPE MARK 


110270° 
100000 


002212’ 


002212' 
017104' 


016360’ 
105100° 
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000017 


G8 


17:54 
3108: CKLOOP 
MOV T28BFR+6,R1 
MOV R1,R2 
BIS @6IT15,R2 
cmp R1,R2 
BEQ 3208 
INC FATFLG 
ERRHRD ERRNO, T2SRRP,EXPREC 
3208: CKLOOP 
MOV T26BFR+4,R1 
MOV 04. ,R2 
CMP Rl, R2 
BEQ 3308 
INC FATFLG 
ERRHRD ERRNO, T28PEP ,EXPREC 
3308: CKLOOP 
ENDSUB 
CMP FATFLG,@15. 
BLO 999% 
JSR PC ,.CKDROP 
999%: 
8 
3 
Fy 
JSR PC, TSTLOOP 
Bcc 163% 
JMP T28L00P 
163%: 
ExIT TsT 
3° 
sLOCAL STORAGE FOR THIS TEST 
3 - 
.BLKB 10-<. -TSV2E7> 
T28PACKET: 
. WORD 100004 
. WORD T28DATA 
-WORD O 
. WORD 10, 


-WORD 641 
WORD T26ROF 
-WORD EXPREC 
3LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
sSET UP EXPECTED 
3 TMK SHOULD BE SET 
sIS TMK SET 
3;6R, IF TMK WAS SET (GOOD) 
sBUMP COUNT 
3 TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
- WORD 2 
. WORD T28RRP 
«WORD EXPREC 
3;LO0P IF SELECTED 
TRAP CSCLP1 
sPICK UP RESIDUAL BYTE COUNTER 
sSHOULD BE THE DIFFERENCE 
irs COUNTER CORRECT 
36R, IF COUNTER CORRECT 
sBUMP COUNT 
sRESIDUAL BYTE COUNTER NOT CORRECT 
TRAP CSERHRD 
-WORD 843 
. WORD T28PBP 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CSCLP1 
3<eeeecececececce END SUBTEST »>>>>>>>>>>> 
L10133: 
TRAP CsESuUB 
:IS ERROR COUNT AT 25 
;6R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


s00 WE NEED TO ITERATE TEST 
s6R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP 
. WORD 


CSExIT 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 


L10130-. 


COMMAND, WITy IE, 


SEQ 304 


ACK 


Si “et URITEZRERD Pade “nanx 
11 


165 110250 
11166 110250 110262’ 
11167 110252 000000 
11168 110254 000024 
11169 110256 000000 
11170 110260 000000 
11171 110262 
11172 
11173 
11174 
11176 110344 
11176 110350 
11179 110350 100006 
11180 110352 110400' 
11181 110354 000000 
111862 110356 000006 
111835 
11165 110 
111867 110370 
11188 110370 100005 
11189 110372 
11190 110372 003114' 
12191 110374 000000 
11192 110376 000000 
11193 
11194 
11195 
11196 
11197 110400 
111986 110400 010 
11199 110401 200 
11200 110402 000000 
11201 110404 000000 
11202 
11203 
11204 
11205 
11206 
11207 110406 
11208 110406 101411 
11209 110410 102011 
11210 110412 103411 
11211 110414 177777 
11212 110416 100011 
11213 110420 100411 
11214 110422 101011 
11215 110424 177777 
11216 
11217 
11218 110426 000000 
11219 110430 000000 
11220 110432 000000 
11221 
11222 
11223 
11224 


H8 
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; 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


T28DATA: 
. WORD 
WORD 
«WORD 
~ WORD 
T280SW: .WORD 
T26BFR: .BLKW 
: 
-BLKB 
T28PK2: 
. WORD 
WORD 
. WORD 
WORD 
-BLKB 
T26PK3: 
.WORD 
T28RB: 
T26WB: .WORD 
~ WORD 
T28SZ: .WORD 
EVEN 
F 
3 
3 
T28BF 2: 


T268S0: .BYTE 
T268S1: .BYTE 


T26S3: 
; 


& 
u 


.EVEN 
s TAPE MOTION PACKET COMMAND VALUES 


T26IMV: 
. WORD 
WORD 
. WORD 
. WORD 
T28RN: .WORD 
T26WOR: .WORD 
T28CON: .WORD 
. WORD 
a 
T286CNT: .WORD 
T28CNU: .WORD 
T280LY: .WORD 


-EVEN 


T26BFR 
te) 

20. 

1) 


te) 
25. 


10-<. -TSV2E7> 


100006 
_—" 2 


6. 

10-<. -TSV2E7> 
100005 

FREE 


101011 
177777 


ie) 
te) 
te) 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


SAOORESS OF PESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE O 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


;BSELO AREA 
;B8SEL1 AREA 
:SEL 2 AREA 
;DATA AREA 


s ILLEGAL MODE BITS TEST DATA 


sWRITE TAPE MARK COMMAND 
sEND OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


SEQ 305 


Sv7 - er tie, 
est 8: ITE /RE 
11226 

1ize? 

11226 1104634 124 
11229 110511 122 
11230 110574 124 
11231 110655 124 
11232 110737 124 
11233 111014 111 
11234 111075 127 
11235 111146 124 
11236 111237 124 
11237 1113504 124 
11238 111361 122 
11259 111430 104 
11240 1115035 124 
11241 111562 103 
11242 111635 124 
11243 111707 124 
11244 111765 124 
11245 112044 124 
11246 112122 104 
11247 112204 104 
11246 112501 127 
11249 

11250 

11251 

11252 

11253 

11254 

11255 

11256 

11257 112326 

11258 112326 

11259 112332 012701 
11260 112336 012721 
11261 112342 012721 
11262 112346 005021 
11265 112350 012721 
11264 112354 012721 
11265 112360 005021 
11266 112362 012721 
11267 112366 005021 
11266 112370 012711 
11269 112374 0612702 
11270 112400 012762 
11271 112406 005742 
11272 112410 020227 
11273 112414 001371 
11274 112416 000207 
11275 

11276 

11277 112420 

11278 112420 

11279 112424 012701 
11260 112430 012721 
112861 112434 012721 
112862 112440 005021 


177777 


110262’ 648: 


18 


‘Ill 
‘WRIT 


*CvC Set, Didn't 


TST2610: 


-ASCIZ 


‘ Tepe Position Not Correct, RIB Should Be Set’ 
*Residuel Byte Counter 

*TSSR Incorrect After RE 
*TSSR Incorrect After SPACE Command Into TAPE MARK’ 
*TSSR Not Correct After Illege 


ister (RBPCR) Not yl 
REVERSE Into TAPE MARK 


1 Mode Bite Set’ 


1 Mode Bits, Feiled S Set ILC ot | In xSTO’ 
MISCELLANEOUS Command Not Accepted 

*TSSR Not Correct After READ DATA 
‘Tepe Not At BOT After REWIND C 
*TSSR Not Correct After FORMAT Command Re ject’ 
‘Rewind (POSITION) Commend Not 
‘Drive 7 Select Feiled To Set “OFL” In TSSR’ 
*TSSR Not Correct After fe TAPE MARK Command’ 


se Into TAPE MARK’ 
ommand' 


Accepted’ 


In Messege Buffer’ 
Command’ 


Reset 
‘TMK Not Set After CRITE. Fane MARK C 
‘TMK Not Set After READ REVERSE Into TAPE MARK’ 
‘TMK Not Set After SPACE REVERSE Into TAPE MARK’ 
‘TMK Not Set After READ FORWARD Into TAPE MARK’ 
‘Dete Trensferred On READ REVERSE Into A TAPE MARK’ 
‘Dete Compere Error. Dete Read From Tape Not Equal To Written’ 
‘Write/Reed Tape Mer’ 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 
s 
3 


T26REST: 


@T26PACKET ,R1 
#100004 ,(R1)-> 
@T2BDATA,(R1)+ 
CLR C(R1)> 

#10. ,(R1)> 
@T26BFR,CR1)-+ 


TST -(R2) 


T28RT2: 


@T26PK2,R1 
#100006 ,(R1)>+ 
@T26BF2,(R1)> 
(R1)> 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


;SELECT ORIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
sALL ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

;CHECK FOR END 

sKEEP GOING UNTIL DONE 

sRE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 

TEX TENDED ADORE SS 


SEQ 306 


TSV7 - HARDWARE TESTS 


TEST 6: WRITE/READ TAPE MARK 


$ 1-8 


012721 000006 


005021 
012701 
005021 
005011 
000207 


012701 


110400" 


110370° 
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T26RTS: 


@T26PK3,R1 
CR1iD> 
CR1)> 
CR1i)d> 

(R1) 

PC 


J8 


sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


;RETURN 


sGET PACKET ADDRESS 
sCLEAR COMMAND AREA 
sCLEAR ADDRESS AREA 
sCLEAR EXTENDED ADDRESS AREA 
sSIZE OF DATA TRANSFER 
sRE TURN 


L10130: 
TRAP CseTSsT 


SEQ 307 


est 8 


TER 
ITE/RE 


112506 
112506 


112640 
112640 
112642 


112642 
112642 


177776 


001031 
112564’ 


000000 
000776 


104 
111 
111 


000003 


001130 


105 
116 
116 


CPO re Aan M1113 O1 


126 
124 
124 


K8 
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-TITLE TSV6 - PARAMETER CODING 


BGNMOD TSV6 
TSV6:: 


-SBTTL HARDWARE PARAMETER CODING SECTION 


+ 

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
-WORD L10134-L$HARD/2 


LSHARD:: 
GPRMA HPM1,0,0,160010,177776, YES ;GET TSBA/TSOB REGISTER ADDRESS. 
. WORD TSCODE 
.WORD HPM1 
-WORD TS$LOLIM 
. WORD TSHILIM 
GPRMA HPM2,2,0,0,776, YES :GET VECTOR ADDRESS. 
~ WORD TSCODE 
.WORD HPM2 
.WORD TSLOLIM 
. WORD TSHILIM 
3GPRMD HPM3,4,0,340,0,7,YES ;GET INTERRUPT PRIORITY. 
ENOHRD 
.EVEN 
L10134: 


HPM1 : -ASCIZ ‘DEVICE ADDRESS ( TSBA/TSOB ) : 
HPMe : -ASCIZ ‘INTERRUPT VECTOR 
HPM3: -ASCIZ ‘INTERRUPT PRIORITY ‘ 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


see 

3 THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

s THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

‘ 


BGNSFT 
-WORD L10135-L$SOFT/2 
GPRML SPM1,0,-1, YES 


GPRML SPM4,2,-1,YES 
-WORD TSCODE 


LSSOFT:: 
; ; GET TRANSPORT TEST FLAG. 
; GET ITERATION CONTROL. 


L8 
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SOFTWARE PARAMETER CODING SECTI On 
112644 112700’ -WORD SPM4 
112646 177777 . WORD -1 
56 : GPRMD SPM6,4,0,7777,0,7777, YES s GET LOCAL ERROR LIMIT 
57 : GPRMD SPM7,.6,0,7777,0,7777, YES ; GET GLOBAL ERROR LIMIT 
58 112650 ENOSF T 
.EVEN 
112650 110135: 
60 
61 112650 105 116 101 SPM1: -ASCIZ ‘ENABLE TRANSPORT TESTS ° 
62 112700 111 116 110 SPM4; -ASCIZ ‘INHIBIT ITERATIONS . 
63 :SPM6: .ASCIZ ‘PER TEST ERROR LIMIT ‘ ‘ 
64 3SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT ° 
65 .SBTTL PATCH AREA 
66 
67 3 
+3 4 3; FINALLY A GENEROUS PATCH AREA. 
3 
70 3; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 
Le ; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 
3 
73 
Le 112730 PATCH:: 
76 3 .BLKW 32. 
44 112730 .BLKW ® 
79 3 oF NZ, .€377 
80 3 2.23771 
81 3 ‘ NOC 
82 112732 p they :SET LAST USED ADDRESS. 
112732 000000 -WORD O 
112734 000000 -WORD O 
112736 LSLAST:: 
83 112736 ENDMOD 
os -SBTTL HARD CODED P-TABLE 
zee 
ry Fy DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 
gece 
88 112736 BGNSE TUP 1 
89 112736 BGNP TAB 
112736 000000 -WORD 0O 
112740 000003 -WORD 1L10140-./2-1 
112742 L10136: 
90 112742 172522 . WORD 172522 
91 112744 000224 » WORD 224 
92 112746 000240 . WORD PRIOS 
93 112750 ENDPTAB 
112750 L10140: 
112750 ENDSE TUP 


96 000001 - END 
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000002 G 


8 
8 
ag 


He 


003154RG 


DEVCNT 


002210RG 


002 FILLME 
002 FNOINT 
002 FORCER 


G 
000037 G 


002166RG 


003114RG 
003120R 


020000 G 
004246R 


888 


R88 


002 
002 


LISTAL= 
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002014RG 


RRERERRERRERSESERRERS BES 


8 


BRERRERSRRSR RRR SRR RSRRR RRR RRS 


043106R 
043572R 


002 
00 


ft 


BRERERRERR ERE RRRRRRES 


110071 


MS.RSD= 


170200 
000250 


012044RG 
012764RG 
012250RG 
013642RG 
000006 


000200 
000001 


112730RG 


013676R 


002 
002 


2 
2 


VUVVVGVVTGVS wea 


000017 
000209 


SESS EST ESTES SSS S: 


SRERSERSEEREE RERE 8 


SPma 112700R 
SRO © 177572 
SRi * 177574 
SR2 © 177576 
S$ «* 172516 
sR s 
STATCO 012312R 
SVCGBL* 000000 
SVCINS* 000000 
SvCSUB- 000001 
SVCTAG* 000000 
SVCTST* 000001 
S8LSYMe 010000 
$0.I0B8- 000010 
SO.IFB* 000002 
$O.IFP* 000001 
$0.ILD* 000020 
$O.ION= 000040 
SO.IRD= 000100 
SO.IRW=e 000006 
$O.ISP* 000200 
$1.ICE* 002000 
$1.IEO= 010000 
-IFMe 001000 
$1.IME= 000400 
$1.I1ID* 004000 
$1.I11R* 020000 
-I2R* 040000 
1.PAR= 100000 
$2.ATI* 000010 
$2.8TI= 000004 
-DIM* 000200 
-ILWe 000100 
- INR= 000020 
S2.Q0UT= 000040 
S2.UND= 000005 
TBLEND= 003052RG 
TCOASC 006376R 
TCOCOD 006576R 
TEMP1 003106R8G 
TEMP? 003110RG 
TERCLS=* 000016 
TESTNO= 000010 
TEXASC 006335R 
TFCASC 006437R 
TIMEXP 015452RG 
T 015500R 
TINERR 011721R 
TMPBFR 002622RG 
TNAM 016606R 
TRANST 002156RG 
TSBA = 000000 
TSBAH = 000001 G 
TSOB = 000000 
TSOBH = 000001 G 
TSFCOD 007136R 
TSREJY = 000006 


SBRREERS 88888 


8 
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TSSOEF 
Ts ° 


TSTESTe 


006506R 
o00002 G 


Ne 


Ree e Ree Rese SEER SEES BE 8 


8 


177777 
1 


027034R 


Tiiitiittiitsit tsi tset settee set ttt 


SEQ S12 


Tiiittitit titi itt tt itt tit te ttt sett et tities atte t tesa teh tS 
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SItiittiit tit titi tiie titi tite teat t ea tt tat toa tts ttt 


SOR 
S246R 


072767R 


Sitti tttt titi titi ttiit tt titt tt teat tt itt tt sata tt tat tt 


Oo 
Ne) 


CERERSERERRERERESEESRERESREREERERERE ER ERR Reece eceme ees 


Tttttitttitittttttitt tiie ttt teat tise teeta tt Sata tt ttt tt 


T3SBFLG 00314086 
13.1 027146R 
13.2 

13.3 030370R 
13.4 O31210R 
13.5 031424R 
Le Se 031772R 
14.1 034312R 
14.10 041622 
14.11 

T4.12 042340R 
14.15 

14.14 0431248 
14.2 034734R 
14.3 0355148 
14.4 036270R 
4.5 036772R 
14.6 037436R 
14.7 040072R 
14.8 

Sa 041120R 
S.1 0465 36R 
5.2 047512R 
S.3 050112R 
S.4 

S.5 051232R 
15.6 051772R 
S.7 052732R 
15.8 0535252R 
6 54 54RG 
16.1 055474R 
76.10 0651148 
76.11 065770R 
6.12 

76.13 067572R 
76.14 070622R 
76.15 0O71202R 
16.2 056406R 
6.3 057254R 
16.4 060146R 
16.5 061074R 
16.6 061652R 
16.7 062514R 
6.8 065366R 
16.9 064240R 
1? 07S006RG 
T7.1 075046R 
17.2 075444R 
17.3 076226R 
17.4 077050R 
17.5 077752R 
Te 105044RG 
76.1 105100R 
18.2 105460R 
18.3 105740R 


002 
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VAM == 000200 G WF. IWF e 000020 
UNITN 002172RG 002 wF.IWwR= 000100 
UNREC = 000006 WF .ISR= 000002 
USI 004115R 002 W.I4R= 000001 
WAITF 016150RG 002 WRICHR 010562RG 002 
WC. IFA= 000200 WRTERR 005105R 002 
WC .IFE* 000002 WRTMSG 002 
wC.IGO* 000001 0211 10RG 002 
WC .IRE= 000010 XFERAS O01 002 
WC .IRW= 000004 XNXM 016276R 002 
WC .I0T= 000100 XORBFO 007574R 002 
wC.I1T= 000040 XORFOR 007712R 002 
wWC.ISR= 000020 xXSTO © 000006 G 
WF .IED= 000010 xST1L = 000010 G 
WF .IER= 000004 xST2 »* 000012 G 
WF .THI= 000200 xSTS * 000014 G 
WF. IRE= 000040 xST4 = 000016 G 
- ABS. 000000 000 

000000 001 
ABS 112750 002 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 31628 WORDS ( 124 PAGES) 
DYNAMIC MEMORY: 20614 WORDS ( 79 PAGES) 
ELAPSED TIME: 01:00:28 


CZTSCA,CZ 


xSOBOT« 
XSOEOTe 
XSOIE « 
XSOILAe 
xSOILCe 
XSOLET« 
XSOMOT« 
XSONEF © 
XSOONL © 
XSOPED= 
XSORLL © 
XSORLS= 
XSOTMK= 
xSOvVCK= 
XSOMLE* 
XSOWLK = 


: :00:2 
TSCA. SEQ/ -SP=SVC/ML.. TSVIC, TSV22C,, TSV3B, TSV4, TSV7A, TSV6 


003112RG 002 X2.SPA= 
X2.UNI« 


000077 


x8: Dex: 
x3."BZ< 
X3.MDE® 
X3.0PT« 
X3.REVe 
x3.RIB- 
X3.SPAs 
x3. TRF « 
X4 .HSP © 
x4 .MBZ*= 
x4 .RCE* 
x4,.1SMe 
Xt.WRC« 


